* Rename of insertDB.pl to factpack.pl

[infobot.git] / scripts / oreilly_dumpvar.pl

diff --git a/scripts/oreilly_dumpvar.pl b/scripts/oreilly_dumpvar.pl
old mode 100644 (file)
new mode 100755 (executable)
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