From b8ae68da4413a77739294436eee6ae7420ee5bba Mon Sep 17 00:00:00 2001
From: Andrew Ruthven <andrew@etc.gen.nz>
Date: Thu, 27 Dec 2007 22:14:47 +1300
Subject: [PATCH] When dealing with forking processes it is useful to know the
 PID that is generating the debug messages.

---
 src/lib/Spong/Log.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lib/Spong/Log.pm b/src/lib/Spong/Log.pm
index e8ef9c8..7f0986c 100755
--- 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
-- 
2.30.2