Is there any module to strip error filename ?

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Is there any module to strip error filename ? by Corion (Patriarch) on Oct 20, 2008 at 19:08 UTC
Read die, or post some code that causes this.	[reply]
Re: Is there any module to strip error filename ? by billward (Initiate) on Oct 20, 2008 at 23:38 UTC
If the die message ends in \n then you won't see the file/line information. If it's code that you don't have control over generating the error, such as in a CPAN module, then you might need to run it in an eval{} block, and modify the error message before re-throwing it. `eval { Some::Module::send_mail() }; if ($@) { (my $error = $@) =~ s/ at .* line \d+$//; die $error; }` [download]	[reply] [d/l]
Re: Is there any module to strip error filename ? by ikegami (Patriarch) on Oct 20, 2008 at 19:09 UTC
Just don't print it in the first place. Compare `>perl -e"die qq{foo}" foo at -e line 1. >perl -e"die qq{foo\n}" foo` [download] See die.	[reply] [d/l]
Re^2: Is there any module to strip error filename ? by Anonymous Monk on Oct 20, 2008 at 19:23 UTC
Thanks. This is for the script. Actually, in some of the model classes also i need. Like it's a huge application, whenever i used croak i am getting the line number and i want to avoid ?	[reply]
Re^3: Is there any module to strip error filename ? by Corion (Patriarch) on Oct 20, 2008 at 19:29 UTC
That's the point of `Carp::croak`. If you don't want that, use die.	[reply]