diff options
| author | fukachan <fukachan> | 2002-09-23 02:02:05 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-09-23 02:02:05 +0000 |
| commit | 29f4248c26b038094ee7402e8dc2e1d48b26efa2 (patch) | |
| tree | 4987d3a88dab2019dbedb19b261afc4f9f20f3c2 | |
| parent | 319218049a9e8ac6a928f08afbb7efb2ab7312b2 (diff) | |
| download | fml8-29f4248c26b038094ee7402e8dc2e1d48b26efa2.tar.gz fml8-29f4248c26b038094ee7402e8dc2e1d48b26efa2.tar.bz2 fml8-29f4248c26b038094ee7402e8dc2e1d48b26efa2.zip | |
should not import STR2EUC from Mail::Message::Encode
bug fixed to use Mail::Message::Encode->convert()
| -rw-r--r-- | fml/lib/FML/Filter/BodyCheck.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/fml/lib/FML/Filter/BodyCheck.pm b/fml/lib/FML/Filter/BodyCheck.pm index b916c2bb..120a3c63 100644 --- a/fml/lib/FML/Filter/BodyCheck.pm +++ b/fml/lib/FML/Filter/BodyCheck.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: BodyCheck.pm,v 1.24 2002/09/13 16:35:57 tmu Exp $ +# $FML: BodyCheck.pm,v 1.25 2002/09/22 14:56:49 fukachan Exp $ # package FML::Filter::BodyCheck; @@ -353,9 +353,10 @@ sub reject_japanese_command_syntax # trap /JIS"2byte"[A-Za-z]+/ # EUC-fy for further investigation - use Mail::Message::Encode qw(STR2EUC); - my $s = &STR2EUC($buf); - $s = (split(/\n/, $s))[0]; # check the first line only + use Mail::Message::Encode; + my $obj = new Mail::Message::Encode; + my $s = $obj->convert( $buf, 'euc-jp' ); + $s = (split(/\n/, $s))[0]; # check the first line only my ($n_pat, $sp_pat); $n_pat = '\243[\301-\332\341-\372]'; |