Update of /cvsroot/openinteract/OpenInteract2/script
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20318/script
Modified Files:
oi2_manage
Log Message:
add some debugging info on exception
Index: oi2_manage
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/script/oi2_manage,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -d -r1.28 -r1.29
*** oi2_manage 9 Nov 2004 13:49:37 -0000 1.28
--- oi2_manage 5 Dec 2004 19:33:13 -0000 1.29
***************
*** 164,174 ****
eval { $task->execute };
if ( $@ ) {
! $log->error( "Caught exception during task execution: $@" );
outl( 'Caught exception during task execution.' );
! if ( $@->isa( 'OpenInteract2::Exception::Parameter' ) ) {
! warn show_parameter_error( $@ );
}
else {
! warn "$@\n";
}
exit(1);
--- 164,179 ----
eval { $task->execute };
if ( $@ ) {
! my $error = $@;
! $log->error( "Caught exception during task execution: $error" );
! for ( 0..10 ) {
! my ( $pkg, $file, $line, $sub ) = caller( $_ );
! $log->error( "Call $_: $pkg, $file, $line, $sub" );
! }
outl( 'Caught exception during task execution.' );
! if ( $error->isa( 'OpenInteract2::Exception::Parameter' ) ) {
! outl( show_parameter_error( $error ) );
}
else {
! outl( "$error\n" );
}
exit(1);
|
