Jesper Noehr wrote:
[snip]
>> if so, give Mail::Audit a chance to see the "new" exit built-in after you
>> override it:
>>
>> BEGIN{ *CORE::GLOBAL::exit = sub { print "EXIT: " . shift } }
>>
>> use Mail::Audit;
>>
>> or:
>>
>> BEGIN{
>> *CORE::GLOBAL::exit = sub { print "EXIT: " . shift };
>>
>> require Mail::Audit;
>>
>> Mail::Audit->import();
>> }
>>
> I tried both, but it doesn't make any difference. All calls to exit() in
> Mail::Audit are treated as CORE::exit.
interesting. i will take a look at the source of Mail::Audit. what function
in Mail::Audit is causing the exit? do you know?
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>
