Changeset 22420

Timestamp:

Feb 23, 2009, 3:14:29 PM (17 years ago)

Author:

Paul Price

Message:

Unhandled exceptions should be passed on to my_die so they get pushed into the database.

File:

• trunk/ippScripts/scripts/register_imfile.pl (modified) (1 diff)

trunk/ippScripts/scripts/register_imfile.pl

@@ -41 +41 @@
     'logfile=s'        => \$logfile,
 ) or pod2usage( 2 );
+
+# Unhandled exceptions should be passed on to my_die so they get pushed into the database
+$SIG{__DIE__} = sub { die @_ if $^S;
+                      my_die( $_[0], $exp_id, $tmp_exp_name, $tmp_class_id, $uri, $PS_EXIT_UNKNOWN_ERROR ); };
 
 $ipprc->redirect_output($logfile) if $logfile;