From 03dedc416e6eb42a59d69b24a4c244367b31faa1 Mon Sep 17 00:00:00 2001
From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Tue, 15 Mar 2005 21:33:32 +0000
Subject: [PATCH] added a warn line for debugging purposes

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@232 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/EX.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/perlmods/OpenSRF/EX.pm b/src/perlmods/OpenSRF/EX.pm
index 7b2cfb0..5395cd3 100644
--- a/src/perlmods/OpenSRF/EX.pm
+++ b/src/perlmods/OpenSRF/EX.pm
@@ -56,6 +56,9 @@ sub throw() {
 		$self = $self->new( @_ );
 	}
 
+	warn "Throwing Exception:\n\n" . $self->stringify() . "\n\n";
+		
+
 	if(		$self->class->isa( "OpenSRF::EX::INFO" )	||
 				$self->class->isa( "OpenSRF::EX::NOTICE" ) ||
 				$self->class->isa( "OpenSRF::EX::WARN" ) ) {
-- 
2.11.0