added PID for phasefx
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 27 Feb 2006 21:20:13 +0000 (21:20 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 27 Feb 2006 21:20:13 +0000 (21:20 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@3208 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Event.pm

index b510a8a..fdcff25 100644 (file)
@@ -31,8 +31,11 @@ sub new {
        my( $m, $f, $l ) = caller(0);
        my( $mm, $ff, $ll ) = caller(1);
 
-       return { ilsevent => $e, textcode => $event, 
-               stacktrace => "$f:$l, $ff:$ll", %params };
+       return { 
+               ilsevent                => $e, 
+               textcode                => $event, 
+               stacktrace      => "$f:$l, $ff:$ll", 
+               pid                     => $$, %params };
 }
 
 sub _load_events {