When dealing with forking processes it is useful to know the PID that is generating...

diff --git a/src/lib/Spong/Log.pm b/src/lib/Spong/Log.pm
index e8ef9c8beff8f1f4151765867cb0696f57ad0927..7f0986c58706a7892d22e06ab22ed72514a1685d 100755 (executable)
--- a/src/lib/Spong/Log.pm
+++ b/src/lib/Spong/Log.pm
@@ -105,7 +105,7 @@ sub error {
 sub debug {
    my ($message,$level) = @_;
    $level = 1 if (! defined $level);  # Default to level 1
-   print STDERR 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