[Openinteract-commits] CVS: OpenInteract2/script oi2_manage,1.28,1.29

[Chris W. <la...@us...>]

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);