Return to libtool CVS log | Up to [local] / src / usr.bin / libtool |
version 1.41, 2014/03/06 08:58:43 | version 1.42, 2014/03/19 02:16:22 | ||
---|---|---|---|
|
|
||
$SIG{__DIE__} = sub { | $SIG{__DIE__} = sub { | ||
require Carp; | require Carp; | ||
my $_ = pop @_; | my $message = pop @_; | ||
s/(.*)( at .*? line .*?\n$)/$1/s; | $message =~ s/(.*)( at .*? line .*?\n$)/$1/s; | ||
push @_, $_; | push @_, $message; | ||
die &Carp::longmess; | die &Carp::longmess; | ||
}; | }; | ||