ws

[infobot.git] / scripts / oreilly_prettyp.pl

diff --git a/scripts/oreilly_prettyp.pl b/scripts/oreilly_prettyp.pl
index 814a9735f2642cf278e0a49865fb97bdea65e4ed..db58d78646c1aaf465a5d5d8bd55f38b015f4bd9 100644 (file)
--- 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;