diff options
| author | fukachan <fukachan> | 2001-04-12 13:50:23 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-04-12 13:50:23 +0000 |
| commit | bd714ec0532cb4269f66bcace04e61b53267bcc9 (patch) | |
| tree | 1a3dc0a51f857161cf3378dc8a5d2e1750185da9 /fml/lib/Mail | |
| parent | 50bc0c3897c191e328e8c9383bc1daf98b5e1d9b (diff) | |
| download | fml8-bd714ec0532cb4269f66bcace04e61b53267bcc9.tar.gz fml8-bd714ec0532cb4269f66bcace04e61b53267bcc9.tar.bz2 fml8-bd714ec0532cb4269f66bcace04e61b53267bcc9.zip | |
bug fix. check $end_regexp only if $end_regexp is defined.
Diffstat (limited to 'fml/lib/Mail')
| -rw-r--r-- | fml/lib/Mail/Bounce/SimpleMatch.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/fml/lib/Mail/Bounce/SimpleMatch.pm b/fml/lib/Mail/Bounce/SimpleMatch.pm index 6d125e49..6be1fdb7 100644 --- a/fml/lib/Mail/Bounce/SimpleMatch.pm +++ b/fml/lib/Mail/Bounce/SimpleMatch.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: SimpleMatch.pm,v 1.6 2001/04/12 11:47:16 fukachan Exp $ +# $FML: SimpleMatch.pm,v 1.7 2001/04/12 13:39:56 fukachan Exp $ # @@ -145,7 +145,10 @@ sub _reach_end next unless $mta_type; my $end_regexp = $address_trap_regexp->{ $mta_type }->{ 'end' }; - return 1 if ($$rbuf =~ /$end_regexp/); + if ($end_regexp && ($$rbuf =~ /$end_regexp/)) { + print "last match {$$rbuf} ~ /$end_regexp/\n" if $debug; + return 1; + } } 0; |