Jesper Noehr wrote:
> Sure, here's an example:
>
> [snip]
>
> #!/usr/bin/perl -w
> use strict;
> use Mail::Audit;
> use vars qw/$mail @maildata/;
> BEGIN { *CORE::GLOBAL::exit = sub { my($exitcode) = shift; print "exit:
> ".$exitcode; die $exitcode; } };
>
> @maildata = <DATA>;
> $mail = Mail::Audit->new(data => [EMAIL PROTECTED]);
> eval { $mail->accept("~/pseudomailbox"); };
> print "Accept returned: [EMAIL PROTECTED]";
> CORE::exit;
>
now i am truely confused! i modified your version ever so slightly:
#!/usr/bin/perl -w
use strict;
BEGIN {
*CORE::GLOBAL::exit = sub { my $exitcode = shift;
print "exit: $exitcode\n"}
}
use Mail::Audit;
my @maildata = <DATA>;
my $mail = Mail::Audit->new(data => [EMAIL PROTECTED]);
$mail->accept("~/pseudomailbox");
print "Accept returned\n";
__END__
prints:
exit: 0
Accept returned
which shows me that the accept function doesn't exit. am i miss something?
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>
