Jesper Noehr wrote:
[snip]
>> are you sure it's the exit function that cause the problem?
> Yes, I am positive. As soon as I insert this into Audit.pm it works
> perfectly:
> use subs qw/exit/;
> sub exit { die shift; }
this makes sense but it doesn't make sense that the previous version doesn't
work. can you provide a strip down version of your whole script to
demonstrate the problme?
david
--
sub'_{print"@_ ";* \ = * __ ,\ & \}
sub'__{print"@_ ";* \ = * ___ ,\ & \}
sub'___{print"@_ ";* \ = * ____ ,\ & \}
sub'____{print"@_,\n"}&{_+Just}(another)->(Perl)->(Hacker)
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
