Remove the location of error from error messages from croak

[greenhorn_007]

Hi,

I want to know is there a way to get rid of the location messages from things like die/croak... etc. I know - if you add \n at the end of the message it's okay. But I have something like that to deal with

eval {#something croaks from outside module ; };
if(...){ die "$@\n"}

So we take the result message from $@. Is there some way to get rid of the location at the end? Like specific regular exp, or doing something before the eval, or taking the clear error from somewhere, or something smart I have never even heard of ... :D

[LanX]

yes you can transform the messages in $SIG{__DIE__} or $SIG{__WARN__} (see %SIG ) with a regular expression, since editors like emacs rely on a format ending with ...

at ... line ...

... to be able to offer "jump to error" on click.

But you need to take care of different things after at like (eval ... ) or -e

> perl -e 'warn "bla\n"'
bla

> perl -e 'warn "bla"'
bla at -e line 1.

> perl -e 'eval q{warn "bla"}'
bla at (eval 1) line 1.

Reading caller should help figuring out such stuff.

PS: Next time please use proper formatting instead of <pre> tags

[Anonymous Monk]

see inside Carp::Always

[Anonymous Monk]

eval{ die 1; };  warn $@;
$SIG{__DIE__} = sub{
     my( $err ) = @_;
     $err=~ s/ at .*? line \d+.$/\n/;
     die $err;
};
die 2;
__END__
1 at - line 1.
2

[LanX]

let's hope no filename will ever contain the substring " at " ! ;-)