Re^3: die properly

&feed; is the call to the subroutine. You wrap the call in an eval-block and check $@ to see if the subroutine died or not.

In general, if you think something isn't in Perl, try it out, because it usually is. :-)
"What is the sound of Perl? Is it not the sound of a wall that people have stopped banging their heads against?"

Comment on Re^3: die properly Download Code

Replies are listed 'Best First'.
Re^4: die properly by Anonymous Monk on May 12, 2005 at 18:42 UTC
Ok, that's how I did `eval { &feed; }; unless ( $@ ) { &error; } sub feed { ...code... while($l < $2) { ...code... } die "Could not retreive data"; }` [download] And it seems to be working.	[reply] [d/l]
Re^5: die properly by tlm (Prior) on May 12, 2005 at 20:39 UTC
If it seems to be working, then it is a remarkable form of working, because the logic is backwards from what dragonchild posted. Notice that after the eval, his code acted on the error if `$@` evaluated to true, while yours acts on the error if `$@` is false (i.e. when there are actually no errors). the lowliest monk	[reply]
Re^6: die properly by Anonymous Monk on May 13, 2005 at 12:23 UTC
But it will not work otherwise, how would you do it?	[reply]