diff options
| author | fukachan <fukachan> | 2001-10-21 15:29:20 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-10-21 15:29:20 +0000 |
| commit | 0a96cc822641e329a87b2db1bc6118567b0d43d8 (patch) | |
| tree | ac6895991c172b466794a720541197e105b7fe29 | |
| parent | 1d2fe2795981683fb4ecc1003c21ac42878838f7 (diff) | |
| download | fml8-0a96cc822641e329a87b2db1bc6118567b0d43d8.tar.gz fml8-0a96cc822641e329a87b2db1bc6118567b0d43d8.tar.bz2 fml8-0a96cc822641e329a87b2db1bc6118567b0d43d8.zip | |
check defined $header->get(content-type)
| -rw-r--r-- | fml/lib/Mail/Message.pm | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/fml/lib/Mail/Message.pm b/fml/lib/Mail/Message.pm index 4a16a196..eb823d5f 100644 --- a/fml/lib/Mail/Message.pm +++ b/fml/lib/Mail/Message.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: Message.pm,v 1.30 2001/10/20 07:44:13 fukachan Exp $ +# $FML: Message.pm,v 1.31 2001/10/21 15:08:50 fukachan Exp $ # package Mail::Message; @@ -713,13 +713,17 @@ sub _header_mime_boundary sub _header_data_type { my ($self, $header) = @_; - my ($type) = split(/;/, $header->get('content-type')); - if (defined $type) { - $type =~ s/\s*//g; - $type =~ tr/A-Z/a-z/; - return $type; + + if (defined $header->get('content-type')) { + my ($type) = split(/;/, $header->get('content-type')); + if (defined $type) { + $type =~ s/\s*//g; + $type =~ tr/A-Z/a-z/; + return $type; + } } - undef; + + return undef; } |