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

diff --git a/scripts/oreilly_dumpvar.pl b/scripts/oreilly_dumpvar.pl
old mode 100644
new mode 100755
index 3efe8b6..354ac47
--- a/scripts/oreilly_dumpvar.pl
+++ b/scripts/oreilly_dumpvar.pl
@@ -1,27 +1,31 @@
 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");
+
+# vim:ts=4:sw=4:expandtab:tw=80