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

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

diff --git a/src/Modules/DumpVars.pl b/src/Modules/DumpVars.pl
index cbb3e3462208d727caa55a75a095bcde4b5fcc35..5b36b2248b0eeecd11763462ff1eebf9c1f1649b 100644 (file)
--- a/src/Modules/DumpVars.pl
+++ b/src/Modules/DumpVars.pl
@@ -6,7 +6,8 @@
 #         NOTE: Ripped from ActivePerl "asp sample" example.
 #
 
-use strict;
+# FIXME
+#use strict;
 
 #use vars qw();
 
@@ -14,7 +15,7 @@ my $countlines = 0;
 
 sub dumpvarslog {
     my ($line) = @_;
-    if (&IsParam("dumpvarsLogFile")) {
+    if (&IsParam('dumpvarsLogFile')) {
        print DUMPVARS $line."\n";
     } else {
        &status("DV: ".$line);
@@ -27,7 +28,7 @@ sub DumpNames(\%$) {
     my $line;
 
     if ($packname eq 'main::') {
-       &dumpvarslog("Packages");
+       &dumpvarslog('Packages');
 
        foreach $symname (sort keys %$package) {
            local *sym = $$package{$symname};
@@ -112,7 +113,7 @@ sub DumpNames(\%$) {
 }
 
 sub dumpallvars {
-    if (&IsParam("dumpvarsLogFile")) {
+    if (&IsParam('dumpvarsLogFile')) {
        my $file = $param{'dumpvarsLogFile'};
        &status("opening fh to dumpvars ($file)");
        if (!open(DUMPVARS,">$file")) {
@@ -123,7 +124,7 @@ sub dumpallvars {
 
     DumpNames(%main::,'main::');
 
-    if (&IsParam("dumpvarsLogFile")) {
+    if (&IsParam('dumpvarsLogFile')) {
        &status("closing fh to dumpvars");
        close DUMPVARS;
     }
@@ -132,3 +133,5 @@ sub dumpallvars {
 }
 
 1;
+
+# vim:ts=4:sw=4:expandtab:tw=80