From 4bf87333933beba7dd71d604a805abc59cc35948 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 27 Feb 2006 21:20:13 +0000
Subject: [PATCH] added PID for phasefx

git-svn-id: svn://svn.open-ils.org/ILS/trunk@3208 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Event.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Event.pm b/Open-ILS/src/perlmods/OpenILS/Event.pm
index b510a8aa4a..fdcff25c84 100644
--- a/Open-ILS/src/perlmods/OpenILS/Event.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Event.pm
@@ -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 {
-- 
2.43.2