diff options
| author | Ken'ichi Fukamachi <fukachan@fml.org> | 2018-09-07 17:32:00 +0900 |
|---|---|---|
| committer | Ken'ichi Fukamachi <fukachan@fml.org> | 2018-09-08 12:49:20 +0900 |
| commit | 63ea732501a38243282b069fe32c50bdae3cc12c (patch) | |
| tree | 4b98851297d46dae9059fabeb7b508f7fe0ef37e | |
| parent | de3abe39f159751b949246c9187c6b542a6f6fb2 (diff) | |
| download | fml8-63ea732501a38243282b069fe32c50bdae3cc12c.tar.gz fml8-63ea732501a38243282b069fe32c50bdae3cc12c.tar.bz2 fml8-63ea732501a38243282b069fe32c50bdae3cc12c.zip | |
remove debug.
| -rw-r--r-- | fml/lib/Mail/Message/String.pm | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/fml/lib/Mail/Message/String.pm b/fml/lib/Mail/Message/String.pm index 84cf6c3c..2c9d9fd9 100644 --- a/fml/lib/Mail/Message/String.pm +++ b/fml/lib/Mail/Message/String.pm @@ -525,41 +525,6 @@ sub is_signature } -# -# debug -# -if ($0 eq __FILE__) { - $debug = 1; - - for my $_str ('=?ISO-2022-JP?B?GyRCJDckRCRiJHMbKEI=?=', - '=?ISO-2022-JP?B?GyRCJSshPCVJJS0lYyVXJT8hPCQ1JC8kaRsoQg==?=', - '=?SJIS?B?g0qBW4Nog0yDg4N2g16BW4Kzgq2C5w==?=', - 'card captor sakura') { - print "\nDATA: $_str\n"; - my $str = new Mail::Message::String $_str; - print "\tmime charset = ", $str->get_mime_charset() ,"\n"; - print "\texternal code = ", $str->_speculate_external_charset(), "\n"; - print "\tinternal code = ", $str->_speculate_internal_code(), "\n"; - - # decode - $str->mime_decode(); - $str->charcode_convert(); - print " DECODED:", $str->as_str(), "\n"; - print "\tcurrent code = ", $str->get_charcode(), " (decoded)\n"; - - # encode - $str->mime_encode(); - print " ENCODED: ", $str->as_str(), "\n"; - print "ORIGINAL: ", $_str, "\n"; - print "\tcurrent code = ", $str->get_charcode(), " (encoded)\n"; - - # decode - $str->mime_decode(); - print "\tcurrent code = ", $str->get_charcode(), " (decoded again)\n"; - } -} - - =head1 CODING STYLE See C<http://www.fml.org/software/FNF/> on fml coding style guide. |