From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Tue, 15 Mar 2005 21:33:32 +0000 (+0000)
Subject: added a warn line for debugging purposes
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=03dedc416e6eb42a59d69b24a4c244367b31faa1;p=opensrf%2Fbjwebb.git

added a warn line for debugging purposes


git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@232 9efc2488-bf62-4759-914b-345cdb29e865
---

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" ) ) {