| Subject: | Email::MIME->header() doesn't return a list in a list context |
Hello,
Email::MIME doesn't return a list when I'm calling $o->header() in a list context, but the Email::Simple (base class) does.
example code:
####################################
#!/usr/bin/perl
use Email::MIME;
use Email::Simple;
my $content = << 'END';
Received: from tinkerbell.digi.com.br ([200.241.100.45])
by mx1.digi.com.br with esmtp (Exim 4.22)
id 1CNViF-0003h0-LC
for mlog@mx1.digi.com.br; Fri, 29 Oct 2004 09:18:35 -0300
Received: from mx1.digi.com.br (unverified [200.241.100.20]) by
(Vircom SMTPRS 4.2.181) with ESMTP id <B0021154024@> for <f-l-o-g@digizap.com.br>;
Fri, 29 Oct 2004 09:27:49 -0300
Received: from fearfactory.digi.com.br ([200.249.3.14] helo=fearfactory)
by mx1.digi.com.br with smtp (Exim 4.22)
id 1CNViE-0003gL-AG
for f-l-o-g@digizap.com.br; Fri, 29 Oct 2004 09:18:34 -0300
END
####################################################
print "Using Email::Simple\n\n";
my $mail = Email::Simple->new($content);
my @received = $mail->header("Received");
print "[", join("]\n\n[", @received), "]\n";
####################################################
print "\n\n";
####################################################
print "Using Email::MIME\n\n";
$mail = Email::MIME->new($content);
@received = $mail->header("Received");
print "[", join("]\n[", @received), "]\n";
####################################################
# Iuri Gomes Diniz adm.iuri<at>digi.com.br