doesn't catch the error thrown by while(<>)?eval { @ARGV = qw(/nowhere); while(<>) {} }; if($@) { print "There was an error!\n"; }
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.
In reply to while(<>) throws uncatchable errors by saintmike
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |