while(<>) throws uncatchable errors

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

Is it a bug or a feature that the eval in

eval {
    @ARGV = qw(/nowhere);
    while(<>) {}
};
if($@) {
    print "There was an error!\n";
}
[download]

doesn't catch the error thrown by while(<>)?

The above doesn't print "There was an error!" as I'd expected, but "Can't open /nowhere: No such file or directory at ./t line 6." instead. Tested with perl 5.8.4.

Comment on while(<>) throws uncatchable errors Select or Download Code

Replies are listed 'Best First'.
Re: while(<>) throws uncatchable errors by merlyn (Sage) on Jan 27, 2006 at 21:33 UTC
That's a warn, not a die. You can probably grab it (untested) by creating a `$SIG{__WARN__}` handler. -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply] [d/l]
Re^2: while(<>) throws uncatchable errors by saintmike (Vicar) on Jan 27, 2006 at 22:10 UTC
D'oh! You're correct, and `no warnings` inside the `eval` block suppresses the warning. Thanks!	[reply] [d/l] [select]