diff options
| author | fukachan <fukachan> | 2001-04-12 12:06:11 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-04-12 12:06:11 +0000 |
| commit | a8dead98239299f858600b95bb924de1d3ea7697 (patch) | |
| tree | e5cee3d4f03d3fe23f8339d42b7e53e858d2c671 | |
| parent | 23777993d3d328638df29617c42d78056c263b0d (diff) | |
| download | fml8-a8dead98239299f858600b95bb924de1d3ea7697.tar.gz fml8-a8dead98239299f858600b95bb924de1d3ea7697.tar.bz2 fml8-a8dead98239299f858600b95bb924de1d3ea7697.zip | |
show matched module name if debug mode
end the current search process ASAP after we can get the result.
| -rw-r--r-- | fml/lib/Mail/Bounce.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/fml/lib/Mail/Bounce.pm b/fml/lib/Mail/Bounce.pm index 3c5eb51e..54f2d74c 100644 --- a/fml/lib/Mail/Bounce.pm +++ b/fml/lib/Mail/Bounce.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Bounce.pm,v 1.4 2001/04/11 16:36:45 fukachan Exp $ +# $FML: Bounce.pm,v 1.5 2001/04/12 10:46:47 fukachan Exp $ # package Mail::Bounce; @@ -59,14 +59,17 @@ sub analyze 'SimpleMatch', ) { my $module = "Mail::Bounce::$pkg"; - print "\n --- module: $module\n" if $debug; - eval qq { require $module; $module->import(); $module->analyze( \$msg , \$result ); }; croak($@) if $@; + + if (keys %$result) { + print "\n match $module\n" if $debug; + last; + } } $self->{ _result } = $result; |