X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Fshowvars.pl;h=22c55acb817cfd6900662d0554f341bc2bc31f63;hb=f7cae48a17d6decd0a9bd997188271daa0a885b1;hp=a8733e08982c07fe5618c515875063c33a3bc499;hpb=bb482ed34735d13cad2a02cf0f5cdc322b6b9f89;p=infobot.git

diff --git a/scripts/showvars.pl b/scripts/showvars.pl
index a8733e0..22c55ac 100644
--- a/scripts/showvars.pl
+++ b/scripts/showvars.pl
@@ -29,11 +29,11 @@ $level = -1; # Level of indentation
 sub pretty_print {
     my $var;
     foreach $var (@_) {
-        if (ref ($var)) {
-            print_ref($var);
-        } else {
-            print_scalar($var);
-        }
+	if (ref ($var)) {
+	    print_ref($var);
+	} else {
+	    print_scalar($var);
+	}
     }
 }
 
@@ -46,26 +46,26 @@ sub print_scalar {
 sub print_ref {
     my $r = $_[0];
     if (exists ($already_seen{$r})) {
-        print_indented ("$r (Seen earlier)");
-        return;
+	print_indented ("$r (Seen earlier)");
+	return;
     } else {
-        $already_seen{$r}=1;
+	$already_seen{$r}=1;
     }
     my $ref_type = ref($r);
     if ($ref_type eq "ARRAY") {
-        print_array($r);
+	print_array($r);
     } elsif ($ref_type eq "SCALAR") {
-        print "Ref -> $r";
-        print_scalar($$r);
+	print "Ref -> $r";
+	print_scalar($$r);
     } elsif ($ref_type eq "HASH") {
-        print_hash($r);
+	print_hash($r);
     } elsif ($ref_type eq "REF") {
-        ++$level;
-        print_indented("Ref -> ($r)");
-        print_ref($$r);
-        --$level;
+	++$level;
+	print_indented("Ref -> ($r)");
+	print_ref($$r);
+	--$level;
     } else {
-        print_indented ("$ref_type (not supported)");
+	print_indented ("$ref_type (not supported)");
     }
 }
 
@@ -74,11 +74,11 @@ sub print_array {
     ++$level;
     print_indented ("[ # $r_array");
     foreach $var (@$r_array) {
-        if (ref ($var)) {
-            print_ref($var);
-        } else {
-            print_scalar($var);
-        }
+	if (ref ($var)) {
+	    print_ref($var);
+	} else {
+	    print_scalar($var);
+	}
     }
     print_indented ("]");
     --$level;
@@ -87,18 +87,18 @@ sub print_array {
 sub print_hash {
     my($r_hash) = @_;
     my($key, $val);
-    ++$level; 
+    ++$level;
     print_indented ("{ # $r_hash");
     while (($key, $val) = each %$r_hash) {
-        $val = ($val ? $val : '""');
-        ++$level;
-        if (ref ($val)) {
-            print_indented ("$key => ");
-            print_ref($val);
-        } else {
-            print_indented ("$key => $val");
-        }
-        --$level;
+	$val = ($val ? $val : '""');
+	++$level;
+	if (ref ($val)) {
+	    print_indented ("$key => ");
+	    print_ref($val);
+	} else {
+	    print_indented ("$key => $val");
+	}
+	--$level;
     }
     print_indented ("}");
     --$level;