handle negative units

[infobot.git] / src / Modules / DumpVars2.pl

diff --git a/src/Modules/DumpVars2.pl b/src/Modules/DumpVars2.pl
index f507396b227d1f83161eea606e04c0f4a0e47356..968f5b89a1697ee1006aa43b0dc65d5a8b3b9ee1 100644 (file)
--- a/src/Modules/DumpVars2.pl
+++ b/src/Modules/DumpVars2.pl
@@ -5,16 +5,18 @@
 #       Created: 20020329
 #
 
-#use strict;
+# use strict;  # TODO
+
 use Devel::Symdump;
 
 sub symdumplog {
     my ($line) = @_;
 
-    if (fileno SYMDUMP) {
-       print SYMDUMP $line."\n";
-    } else {
-       &status("SD: ".$line);
+    if ( fileno SYMDUMP ) {
+        print SYMDUMP $line . "\n";
+    }
+    else {
+        &status( "SD: " . $line );
     }
 }
 
@@ -22,44 +24,48 @@ sub symdumpAll {
     my $o = Devel::Symdump->rnew();
 
     # scalars.
-    foreach ($o->scalars) {
-#      &symdumpRecur($_);
-       symdumplog("  scalar($_)");
+    foreach ( $o->scalars ) {
+
+        #      &symdumpRecur($_);
+        symdumplog("  scalar($_)");
     }
 }
 
 sub symdumpRecur {
     my $x = shift;
 
-    if (ref $x eq "HASH") {
-       foreach (keys %$x) {
-           &symdumpRecur($_);
-       }
-    } else {
-       symdumplog("unknown: $x");
+    if ( ref $x eq 'HASH' ) {
+        foreach ( keys %$x ) {
+            &symdumpRecur($_);
+        }
+    }
+    else {
+        symdumplog("unknown: $x");
     }
 }
 
 sub symdumpAllFile {
-    &DEBUG("before open");
-    if (&IsParam("symdumpLogFile")) {
-       my $file = $param{'symdumpLogFile'};
-       &status("opening fh to symdump ($file)");
-       if (!open(SYMDUMP,">$file")) {
-           &ERROR("cannot open dumpvars.");
-           return;
-       }
+    &DEBUG('before open');
+    if ( &IsParam('symdumpLogFile') ) {
+        my $file = $param{'symdumpLogFile'};
+        &status("opening fh to symdump ($file)");
+        if ( !open( SYMDUMP, ">$file" ) ) {
+            &ERROR('cannot open dumpvars.');
+            return;
+        }
     }
-    &DEBUG("after open");
+    &DEBUG('after open');
 
     symdumpAll();
 
-    if (fileno SYMDUMP) {
-       &status("closing fh to symdump");
-       close SYMDUMP;
+    if ( fileno SYMDUMP ) {
+        &status('closing fh to symdump');
+        close SYMDUMP;
     }
 
     &status("SD: count == $countlines");
 }
 
 1;
+
+# vim:ts=4:sw=4:expandtab:tw=80