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