I'm interested in what advice the monks can give on the following
form of eval error catching-- I picked it up at work
and have been using it for a while, with pretty good
success. I use programs that run other programs at work,
and this displays which program died when a
die
happens.
eval { main () };
print STDERR "# $0: ", $@
and exit 1
if $@;
exit 0;
sub main {
# do everything
...
}
I don't use the try/catch form of eval much, although
it does seem to work with the above:
eval { main () };
print STDERR "# $0: ", $@
and exit 1
if $@;
exit 0;
sub main {
my $val = eval { test_sub () };
print "hi" if $@;
}
sub test_sub { die "test_sub dies" }
prints "hi", not "# <programname>: test_sub dies", as I expected.
Any advice? Could this lead me to shoot myself in the foot
later on? Thanks much.