* 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 610cc790fcc5c82c5acf1aef7865380271890029..5b36b2248b0eeecd11763462ff1eebf9c1f1649b 100644 (file)
--- a/src/Modules/DumpVars.pl
+++ b/src/Modules/DumpVars.pl
@@ -1,12 +1,13 @@
 #
 #  DumpVars.pl: Perl variables dumper.
-#   Maintained: xk <xk@leguin.openprojects.net>
+#   Maintained: dms
 #      Version: v0.1 (20000114)
 #      Created: 20000114
 #         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