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