* Add vim formatting comments ( # vim:ts=4:sw=4:expandtab:tw=80 )

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

diff --git a/src/Modules/DumpVars2.pl b/src/Modules/DumpVars2.pl
index f507396b227d1f83161eea606e04c0f4a0e47356..a6e70e5e472c23f145d026a9d1a6426491bcf827 100644 (file)
--- a/src/Modules/DumpVars2.pl
+++ b/src/Modules/DumpVars2.pl
@@ -5,7 +5,8 @@
 #       Created: 20020329
 #
 
-#use strict;
+# use strict;  # TODO
+
 use Devel::Symdump;
 
 sub symdumplog {
@@ -31,7 +32,7 @@ sub symdumpAll {
 sub symdumpRecur {
     my $x = shift;
 
-    if (ref $x eq "HASH") {
+    if (ref $x eq 'HASH') {
        foreach (keys %$x) {
            &symdumpRecur($_);
        }
@@ -41,21 +42,21 @@ sub symdumpRecur {
 }
 
 sub symdumpAllFile {
-    &DEBUG("before open");
-    if (&IsParam("symdumpLogFile")) {
+    &DEBUG('before open');
+    if (&IsParam('symdumpLogFile')) {
        my $file = $param{'symdumpLogFile'};
        &status("opening fh to symdump ($file)");
        if (!open(SYMDUMP,">$file")) {
-           &ERROR("cannot open dumpvars.");
+           &ERROR('cannot open dumpvars.');
            return;
        }
     }
-    &DEBUG("after open");
+    &DEBUG('after open');
 
     symdumpAll();
 
     if (fileno SYMDUMP) {
-       &status("closing fh to symdump");
+       &status('closing fh to symdump');
        close SYMDUMP;
     }
 
@@ -63,3 +64,5 @@ sub symdumpAllFile {
 }
 
 1;
+
+# vim:ts=4:sw=4:expandtab:tw=80