diff options
| author | fukachan <fukachan> | 2001-10-21 15:08:50 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-10-21 15:08:50 +0000 |
| commit | 1d2fe2795981683fb4ecc1003c21ac42878838f7 (patch) | |
| tree | 755bd7a2d07912ac183debe2b6e46c68b245d0c4 | |
| parent | 136fa2edd93b07a3e17412778ff86b41ea515787 (diff) | |
| download | fml8-1d2fe2795981683fb4ecc1003c21ac42878838f7.tar.gz fml8-1d2fe2795981683fb4ecc1003c21ac42878838f7.tar.bz2 fml8-1d2fe2795981683fb4ecc1003c21ac42878838f7.zip | |
check more defined() check
| -rw-r--r-- | fml/lib/Mail/Message.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/fml/lib/Mail/Message.pm b/fml/lib/Mail/Message.pm index 498a9c95..4a16a196 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.29 2001/09/23 14:28:17 fukachan Exp $ +# $FML: Message.pm,v 1.30 2001/10/20 07:44:13 fukachan Exp $ # package Mail::Message; @@ -277,7 +277,8 @@ sub _build_message $self->_set_up_template($args); # parse the non multipart mail and build a chain - if ($args->{ data_type } =~ /multipart/i) { + if (defined( $args->{ data_type } ) && + $args->{ data_type } =~ /multipart/i) { $self->parse_and_build_mime_multipart_chain($args); } # parse the mail data. @@ -696,7 +697,7 @@ sub _header_mime_boundary my ($self, $header) = @_; my $m = $header->get('content-type'); - if ($m =~ /boundary\s*=\s*\"(.*)\"/i) { # case insensitive + if (defined($m) && ($m =~ /boundary\s*=\s*\"(.*)\"/i)) { # case insensitive return $1; } else { |