take a few more things literally

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

diff --git a/src/Modules/DumpVars2.pl b/src/Modules/DumpVars2.pl
index eb814335332d6327ed5a64578120f0c2ce3d71f3..2049846a9496647b2474e65aed265b5e8432ec82 100644 (file)
--- a/src/Modules/DumpVars2.pl
+++ b/src/Modules/DumpVars2.pl
@@ -32,7 +32,7 @@ sub symdumpAll {
 sub symdumpRecur {
     my $x = shift;
 
-    if (ref $x eq "HASH") {
+    if (ref $x eq 'HASH') {
        foreach (keys %$x) {
            &symdumpRecur($_);
        }
@@ -42,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;
     }