Changeset 5296

Timestamp:

06/18/09 03:11:53 (3 years ago)

Author:

submersible_toaster

Message:

PADRE_DIE handler glorified with Carp::longmess

File:

• trunk/Padre/script/padre (modified) (1 diff)

trunk/Padre/script/padre

@@ -6 +6 @@
 use File::Which  ();
 use Getopt::Long ();
+use Carp         ();
 
 $| = 1;
 
 if ($ENV{PADRE_DIE}) {
-    $SIG{__DIE__} = sub { print STDERR "DIE: @_" };
+    $SIG{__DIE__} = sub { print STDERR Carp::longmess "DIE: @_" };
 }