]> git.etc.gen.nz Git - spong.git/commitdiff
change print line in debug() method to print to STDERR instead of STDOUT.
authorStephen L Johnson <sjohnson@monsters.org>
Sun, 30 Jan 2000 08:03:49 +0000 (08:03 +0000)
committerStephen L Johnson <sjohnson@monsters.org>
Sun, 30 Jan 2000 08:03:49 +0000 (08:03 +0000)
src/lib/Spong/Log.pm

index 6a157bdab043bd057c72f84402ff047467767c33..d3ef7e92b9c1136b3ae0d58527ffa83cfbd42610 100755 (executable)
@@ -92,7 +92,7 @@ sub error {
 sub debug {
    my ($message,$level) = @_;
    $level = 1 if (! defined $level);  # Default to level 1
-   print scalar localtime, " ", $message, "\n" if $debuglevel >= $level;
+   print STDERR scalar localtime, " ", $message, "\n" if $debuglevel >= $level;
 }
 
 1;  # I'm included perl code, I need this line