diff options
| author | fukachan <fukachan> | 2002-07-02 12:53:11 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-07-02 12:53:11 +0000 |
| commit | 349d0b0b5187a54d5ec9f9d7dda0e6c3f52ef759 (patch) | |
| tree | f8b123f9659c7965cb9a386c5fb65f4aa42d6535 | |
| parent | b2e2f947cd4aa63951c0f2676b0669594769f9ce (diff) | |
| download | fml8-349d0b0b5187a54d5ec9f9d7dda0e6c3f52ef759.tar.gz fml8-349d0b0b5187a54d5ec9f9d7dda0e6c3f52ef759.tar.bz2 fml8-349d0b0b5187a54d5ec9f9d7dda0e6c3f52ef759.zip | |
defined()
| -rw-r--r-- | fml/lib/Mail/Message/Date.pm | 4 | ||||
| -rw-r--r-- | fml/lib/Mail/Message/Decode.pm | 6 |
2 files changed, 6 insertions, 4 deletions
diff --git a/fml/lib/Mail/Message/Date.pm b/fml/lib/Mail/Message/Date.pm index a619bc3d..2010c875 100644 --- a/fml/lib/Mail/Message/Date.pm +++ b/fml/lib/Mail/Message/Date.pm @@ -2,7 +2,7 @@ # # Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi # -# $FML: Date.pm,v 1.10 2002/01/30 14:51:16 fukachan Exp $ +# $FML: Date.pm,v 1.11 2002/06/01 05:02:34 fukachan Exp $ # package Mail::Message::Date; @@ -273,7 +273,7 @@ my %zone = ("JST", "+0900", sub _log { my ($s) = @_; - print STDERR $s, "\n"; + print STDERR $s, "\n" if defined $s; } diff --git a/fml/lib/Mail/Message/Decode.pm b/fml/lib/Mail/Message/Decode.pm index ab5b1d2b..1e455d4f 100644 --- a/fml/lib/Mail/Message/Decode.pm +++ b/fml/lib/Mail/Message/Decode.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: Decode.pm,v 1.1 2001/12/23 02:59:48 fukachan Exp $ +# $FML: Decode.pm,v 1.2 2002/05/23 12:47:50 fukachan Exp $ # package Mail::Message::Decode; @@ -56,7 +56,9 @@ by $options->{ charset }. sub decode_mime_string { my ($str, $options) = @_; - my $charset = $options->{ 'charset' } || 'euc-japan'; + my $charset = (defined $options->{ 'charset' } ? + $options->{ 'charset' } : + 'euc-japan'); if ($charset eq 'euc-japan') { use MIME::Base64; |