r37919 - in /branches/upstream/libemail-send-perl/current: Changes META.yml README lib/Email/Send.pm lib/Email/Send/NNTP.pm lib/Email/Send/Qmail.pm lib/Email/Send/SMTP.pm lib/Email/Send/Sendmail.pm lib/Email/Send/Test.pm t/email-send.t

nhandler-guest at users.alioth.debian.org nhandler-guest at users.alioth.debian.org
Wed Jun 10 02:10:38 UTC 2009


Author: nhandler-guest
Date: Wed Jun 10 02:10:31 2009
New Revision: 37919

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=37919
Log:
[svn-upgrade] Integrating new upstream version, libemail-send-perl (2.196)

Modified:
    branches/upstream/libemail-send-perl/current/Changes
    branches/upstream/libemail-send-perl/current/META.yml
    branches/upstream/libemail-send-perl/current/README
    branches/upstream/libemail-send-perl/current/lib/Email/Send.pm
    branches/upstream/libemail-send-perl/current/lib/Email/Send/NNTP.pm
    branches/upstream/libemail-send-perl/current/lib/Email/Send/Qmail.pm
    branches/upstream/libemail-send-perl/current/lib/Email/Send/SMTP.pm
    branches/upstream/libemail-send-perl/current/lib/Email/Send/Sendmail.pm
    branches/upstream/libemail-send-perl/current/lib/Email/Send/Test.pm
    branches/upstream/libemail-send-perl/current/t/email-send.t

Modified: branches/upstream/libemail-send-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-send-perl/current/Changes?rev=37919&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/Changes (original)
+++ branches/upstream/libemail-send-perl/current/Changes Wed Jun 10 02:10:31 2009
@@ -1,3 +1,10 @@
+Revision history for Email-Send
+
+2.196     2009-06-09
+          ** PLEASE CONSIDER USING EMAIL-SENDER INSTEAD **
+
+          reduce reliance of tests on screw-up-able Module::Pluggable call
+
 2.195     2009-06-07
           ** PLEASE CONSIDER USING EMAIL-SENDER INSTEAD **
 

Modified: branches/upstream/libemail-send-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-send-perl/current/META.yml?rev=37919&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/META.yml (original)
+++ branches/upstream/libemail-send-perl/current/META.yml Wed Jun 10 02:10:31 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Email-Send
-version:            2.195
+version:            2.196
 abstract:           Simply Sending Email
 author:
     - Casey West <casey at geeknest.com>

Modified: branches/upstream/libemail-send-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-send-perl/current/README?rev=37919&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/README (original)
+++ branches/upstream/libemail-send-perl/current/README Wed Jun 10 02:10:31 2009
@@ -2,7 +2,7 @@
     Email::Send - Simply Sending Email
 
 VERSION
-    2.195
+    2.196
 
 SYNOPSIS
       use Email::Send;

Modified: branches/upstream/libemail-send-perl/current/lib/Email/Send.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-send-perl/current/lib/Email/Send.pm?rev=37919&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/lib/Email/Send.pm (original)
+++ branches/upstream/libemail-send-perl/current/lib/Email/Send.pm Wed Jun 10 02:10:31 2009
@@ -2,7 +2,7 @@
 use strict;
 
 use vars qw[$VERSION];
-$VERSION   = '2.195';
+$VERSION   = '2.196';
 
 use Email::Simple;
 use Module::Pluggable

Modified: branches/upstream/libemail-send-perl/current/lib/Email/Send/NNTP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-send-perl/current/lib/Email/Send/NNTP.pm?rev=37919&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/lib/Email/Send/NNTP.pm (original)
+++ branches/upstream/libemail-send-perl/current/lib/Email/Send/NNTP.pm Wed Jun 10 02:10:31 2009
@@ -5,7 +5,7 @@
 use Net::NNTP;
 use Return::Value;
 
-$VERSION   = '2.195';
+$VERSION   = '2.196';
 
 sub is_available {
     return   eval { require Net::NNTP }

Modified: branches/upstream/libemail-send-perl/current/lib/Email/Send/Qmail.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-send-perl/current/lib/Email/Send/Qmail.pm?rev=37919&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/lib/Email/Send/Qmail.pm (original)
+++ branches/upstream/libemail-send-perl/current/lib/Email/Send/Qmail.pm Wed Jun 10 02:10:31 2009
@@ -7,7 +7,7 @@
 
 use vars qw[$QMAIL $VERSION];
 $QMAIL   ||= q[qmail-inject];
-$VERSION   = '2.195';
+$VERSION   = '2.196';
 
 sub is_available {
     my $class = shift;
@@ -76,8 +76,6 @@
 
   $Email::Send::Qmail::QMAIL = '/usr/sbin/qmail-inject';
 
-Any arguments passed to C<send> will be passed to C<qmail-inject>.
-
 =head1 SEE ALSO
 
 L<Email::Send>,

Modified: branches/upstream/libemail-send-perl/current/lib/Email/Send/SMTP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-send-perl/current/lib/Email/Send/SMTP.pm?rev=37919&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/lib/Email/Send/SMTP.pm (original)
+++ branches/upstream/libemail-send-perl/current/lib/Email/Send/SMTP.pm Wed Jun 10 02:10:31 2009
@@ -5,7 +5,7 @@
 use Email::Address;
 use Return::Value;
 
-$VERSION = '2.195';
+$VERSION = '2.196';
 
 sub is_available {
     my ($class, %args) = @_;
@@ -21,14 +21,17 @@
 sub get_env_sender {
   my ($class, $message) = @_;
 
-  my $from = (Email::Address->parse($message->header('From')))[0]->address;
+  return unless my $hdr = $message->header('From');
+  my $from = (Email::Address->parse($hdr))[0]->address;
 }
 
 sub get_env_recipients {
   my ($class, $message) = @_;
 
-  my %to = map { $_->address => 1 }
-           map { Email::Address->parse($message->header($_)) }
+  my %to = map  { $_->address => 1 }
+           map  { Email::Address->parse($message->header($_)) }
+           grep { defined and length }
+           map  { $message->header($_) }
            qw(To Cc Bcc);
 
   return keys %to;

Modified: branches/upstream/libemail-send-perl/current/lib/Email/Send/Sendmail.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-send-perl/current/lib/Email/Send/Sendmail.pm?rev=37919&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/lib/Email/Send/Sendmail.pm (original)
+++ branches/upstream/libemail-send-perl/current/lib/Email/Send/Sendmail.pm Wed Jun 10 02:10:31 2009
@@ -7,7 +7,7 @@
 
 use vars qw[$SENDMAIL $VERSION];
 
-$VERSION   = '2.195';
+$VERSION   = '2.196';
 
 sub is_available {
     my $class = shift;
@@ -85,9 +85,6 @@
 
   $Email::Send::Sendmail::SENDMAIL = '/usr/sbin/sendmail';
 
-Any arguments passed to C<send> will be passed to C<sendmail>. The
-C<-t -oi> arguments are sent automatically.
-
 =head1 SEE ALSO
 
 L<Email::Send>,

Modified: branches/upstream/libemail-send-perl/current/lib/Email/Send/Test.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-send-perl/current/lib/Email/Send/Test.pm?rev=37919&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/lib/Email/Send/Test.pm (original)
+++ branches/upstream/libemail-send-perl/current/lib/Email/Send/Test.pm Wed Jun 10 02:10:31 2009
@@ -70,7 +70,7 @@
 
 use vars qw{$VERSION};
 BEGIN {
-	$VERSION = '2.195';
+	$VERSION = '2.196';
 }
 
 # No longer allow direct access to the array

Modified: branches/upstream/libemail-send-perl/current/t/email-send.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-send-perl/current/t/email-send.t?rev=37919&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/t/email-send.t (original)
+++ branches/upstream/libemail-send-perl/current/t/email-send.t Wed Jun 10 02:10:31 2009
@@ -6,10 +6,10 @@
 can_ok 'Email::Send', 'plugins', 'mailer_available', 'mailer',
                       'mailer_args', 'message_modifier', 'send', 'all_mailers';
 use_ok $_ 
-  for grep { /NNTP|SMTP|Qmail|Sendmail/ } Email::Send->plugins;
+  for map { "Email::Send::$_" } qw(NNTP SMTP Qmail Sendmail);
 
 can_ok $_, 'is_available', 'send'
-  for grep { /NNTP|SMTP|Qmail|Sendmail/ } Email::Send->plugins;
+  for map { "Email::Send::$_" } qw(NNTP SMTP Qmail Sendmail);
 
 my $mailer = Email::Send->new();
 isa_ok $mailer, 'Email::Send';




More information about the Pkg-perl-cvs-commits mailing list