Jesper Noehr wrote:
[snip]
>> i have never used Mail::Audit so i am not familiar with it. looking at
>> your
>> code, i am almost certain that this:
>>
>> CORE::exit;
> I am using CORE::exit because I _need_ the actual exit in my own program.
> Mail::Audit does not call CORE::exit, it just calls exit();
>>
>> is your problem. CORE::exit refers to the built-in exit function which
>> halts execution of your problem.
let me try one more time:
1. Mail::Audit calls exit which should call your defined sub but it doesn't
2. after catching the exit call from Mail::Audit, you will
CORE::exit so your script can exit. correct?
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();
}
if i have misunderstood you again, please let me 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>
