X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Foreilly_dumpvar.pl;h=354ac477949424544dfff1f2d72f33d981ddc684;hb=45e51047c2df703229843193e49fb9829489170f;hp=70410d83611ff04ca5b7c8b3baf413b8f7a8580f;hpb=da8ba434964f98f569fad58e723c905d282942e6;p=infobot.git

diff --git a/scripts/oreilly_dumpvar.pl b/scripts/oreilly_dumpvar.pl
index 70410d8..354ac47 100755
--- a/scripts/oreilly_dumpvar.pl
+++ b/scripts/oreilly_dumpvar.pl
@@ -1,28 +1,30 @@
 package DUMPVAR;
+
 sub dumpvar {
     ($packageName) = @_;
-    $rPackage = \%{"${packageName}::"};  # Get a reference to the appropriate symbol table hash.
-    $, = " "	;
-    while (($varName, $globValue) = each %$rPackage) {
-	print "$varName ============================= \n";
-	*var = $globValue;
-	if (defined ($var)) {
-	    print "\t \$$varName $var \n";
-	}
-	if (defined (@var)) {
-	    print "\t \@$varName @var \n";
-	}
-	if (defined (%var)) {
-	    print "\t \%$varName ",%var," \n";
-	}
+    $rPackage =
+      \%{"${packageName}::"
+      };    # Get a reference to the appropriate symbol table hash.
+    $, = " ";
+    while ( ( $varName, $globValue ) = each %$rPackage ) {
+        print "$varName ============================= \n";
+        *var = $globValue;
+        if ( defined($var) ) {
+            print "\t \$$varName $var \n";
+        }
+        if ( defined(@var) ) {
+            print "\t \@$varName @var \n";
+        }
+        if ( defined(%var) ) {
+            print "\t \%$varName ", %var, " \n";
+        }
     }
 }
 
-
 package Test;
 $x = 10;
-@y = (1,3,4);
-%z = (1,2,3,4, 5, 6, \@y);
+@y = ( 1, 3, 4 );
+%z = ( 1, 2, 3, 4, 5, 6, \@y );
 $z = 300;
 DUMPVAR::dumpvar("Test");