X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Foreilly_prettyp.pl;h=db58d78646c1aaf465a5d5d8bd55f38b015f4bd9;hb=f7cae48a17d6decd0a9bd997188271daa0a885b1;hp=814a9735f2642cf278e0a49865fb97bdea65e4ed;hpb=93eb520d8e5ebbdea3a20029d9d95e0d4e848901;p=infobot.git

diff --git a/scripts/oreilly_prettyp.pl b/scripts/oreilly_prettyp.pl
index 814a973..db58d78 100644
--- a/scripts/oreilly_prettyp.pl
+++ b/scripts/oreilly_prettyp.pl
@@ -6,11 +6,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);
+	}
     }
 }
 
@@ -23,26 +23,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)");
     }
 }
 
@@ -51,11 +51,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;
@@ -64,18 +64,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;