avoid reassigning to temp upon decode_utf8

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

diff --git a/src/Modules/DumpVars2.pl b/src/Modules/DumpVars2.pl
index ddff6fae289492aa5b41d18882fda07f3d01eee9..968f5b89a1697ee1006aa43b0dc65d5a8b3b9ee1 100644 (file)
--- a/src/Modules/DumpVars2.pl
+++ b/src/Modules/DumpVars2.pl
@@ -12,10 +12,11 @@ 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 );
     }
 }
 
@@ -23,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;
-       }
+    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');
 
     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