This makes "SAWA::Error=HASH(0xdeadbeaf)" error messages go away:

--- SAWA-0.79/lib/SAWA/Machine.pm~      2004-08-27 13:15:37.000000000 +0200
+++ SAWA-0.79/lib/SAWA/Machine.pm       2004-09-08 18:24:42.000000000 +0200
@@ -120,7 +120,8 @@
         if ( $@ ) {
             eval "require $handler;";
             if ( $@ ) {
-                $self->error->die( $@ );
+               my $e=$@;
+                $self->error->die( $e );
                 return HANDLER_ERROR;
             }
             $new_handler = $handler->new();

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]



Reply via email to