X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2FDumpVars2.pl;h=a6e70e5e472c23f145d026a9d1a6426491bcf827;hb=cb81fea9939f349b36e3b5a0cdc0343a6b781da1;hp=f507396b227d1f83161eea606e04c0f4a0e47356;hpb=cc8ab9a5235b29e43af923836d24579413c882d6;p=infobot.git

diff --git a/src/Modules/DumpVars2.pl b/src/Modules/DumpVars2.pl
index f507396..a6e70e5 100644
--- 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