r39796 - in /trunk/libemail-send-perl: ./ debian/ debian/patches/ lib/Email/ lib/Email/Send/ t/

ansgar-guest at users.alioth.debian.org ansgar-guest at users.alioth.debian.org
Sun Jul 12 20:44:04 UTC 2009 

Author: ansgar-guest
Date: Sun Jul 12 20:43:46 2009
New Revision: 39796

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=39796
Log:
* New upstream release
  + Refresh patch "add_usr_sbin_to_path"

Modified:
    trunk/libemail-send-perl/Changes
    trunk/libemail-send-perl/META.yml
    trunk/libemail-send-perl/README
    trunk/libemail-send-perl/debian/changelog
    trunk/libemail-send-perl/debian/patches/add_usr_sbin_to_path
    trunk/libemail-send-perl/lib/Email/Send.pm
    trunk/libemail-send-perl/lib/Email/Send/NNTP.pm
    trunk/libemail-send-perl/lib/Email/Send/Qmail.pm
    trunk/libemail-send-perl/lib/Email/Send/SMTP.pm
    trunk/libemail-send-perl/lib/Email/Send/Sendmail.pm
    trunk/libemail-send-perl/lib/Email/Send/Test.pm
    trunk/libemail-send-perl/t/sendmail.t

Modified: trunk/libemail-send-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-send-perl/Changes?rev=39796&op=diff
==============================================================================
--- trunk/libemail-send-perl/Changes (original)
+++ trunk/libemail-send-perl/Changes Sun Jul 12 20:43:46 2009
@@ -1,4 +1,8 @@
 Revision history for Email-Send
+
+2.198     2009-07-12
+          ** PLEASE CONSIDER USING EMAIL-SENDER INSTEAD **
+          fix the paths added in 2.195; thanks, ansgar from uni-heidelberg
 
 2.197     2009-06-13
           ** PLEASE CONSIDER USING EMAIL-SENDER INSTEAD **

Modified: trunk/libemail-send-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-send-perl/META.yml?rev=39796&op=diff
==============================================================================
--- trunk/libemail-send-perl/META.yml (original)
+++ trunk/libemail-send-perl/META.yml Sun Jul 12 20:43:46 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Email-Send
-version:            2.197
+version:            2.198
 abstract:           Simply Sending Email
 author:
     - Casey West <casey at geeknest.com>

Modified: trunk/libemail-send-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-send-perl/README?rev=39796&op=diff
==============================================================================
--- trunk/libemail-send-perl/README (original)
+++ trunk/libemail-send-perl/README Sun Jul 12 20:43:46 2009
@@ -2,7 +2,7 @@
     Email::Send - Simply Sending Email
 
 VERSION
-    2.197
+    2.198
 
 SYNOPSIS
       use Email::Send;

Modified: trunk/libemail-send-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-send-perl/debian/changelog?rev=39796&op=diff
==============================================================================
--- trunk/libemail-send-perl/debian/changelog (original)
+++ trunk/libemail-send-perl/debian/changelog Sun Jul 12 20:43:46 2009
@@ -1,3 +1,10 @@
+libemail-send-perl (2.198-1) unstable; urgency=low
+
+  * New upstream release
+    + Refresh patch "add_usr_sbin_to_path"
+
+ -- Ansgar Burchardt <ansgar at 43-1.org>  Sun, 12 Jul 2009 22:40:59 +0200
+
 libemail-send-perl (2.197-1) unstable; urgency=low
 
   * New upstream release: Fixes regression introduced into SMTP 

Modified: trunk/libemail-send-perl/debian/patches/add_usr_sbin_to_path
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-send-perl/debian/patches/add_usr_sbin_to_path?rev=39796&op=diff
==============================================================================
--- trunk/libemail-send-perl/debian/patches/add_usr_sbin_to_path (original)
+++ trunk/libemail-send-perl/debian/patches/add_usr_sbin_to_path Sun Jul 12 20:43:46 2009
@@ -11,8 +11,8 @@
 Description: In 2.195-1, this patch was updated to apply cleanly after changes
 upstream. There is no longer a need to patch lib/Email/Send/Sendmail.pm.
 
---- a/lib/Email/Send/Qmail.pm
-+++ b/lib/Email/Send/Qmail.pm
+--- libemail-send-perl.orig/lib/Email/Send/Qmail.pm
++++ libemail-send-perl/lib/Email/Send/Qmail.pm
 @@ -26,7 +26,9 @@
        return $QMAIL;
      }
@@ -24,19 +24,21 @@
          if ( -x "$dir/$QMAIL" ) {
              $sendmail = "$dir/$QMAIL";
              last;
---- a/t/sendmail.t
-+++ b/t/sendmail.t
+--- libemail-send-perl.orig/t/sendmail.t
++++ libemail-send-perl/t/sendmail.t
 @@ -1,4 +1,4 @@
 -use Test::More tests => 11;
 +use Test::More tests => 8;
  use strict;
  $^W = 1;
  
-@@ -14,15 +14,15 @@
+@@ -14,17 +14,17 @@
  blah blah blah
  EOF
  
 -{
+-  undef $Email::Send::Sendmail::SENDMAIL;
+-  local $ENV{PERL_EMAIL_SEND_SENDMAIL_NO_EXTRA_PATHS} = 1;
 -  local $ENV{PATH} = '';
 -  ok( Email::Send::Sendmail->is_available, 'Email::Send always is available' );
 -  my $msg = Email::Send::Sendmail->is_available;
@@ -46,6 +48,8 @@
 -  ok( ! defined $path, 'no sendmail found because we have no path' );
 -}
 +#{
++#  undef $Email::Send::Sendmail::SENDMAIL;
++#  local $ENV{PERL_EMAIL_SEND_SENDMAIL_NO_EXTRA_PATHS} = 1;
 +#  local $ENV{PATH} = '';
 +#  ok( Email::Send::Sendmail->is_available, 'Email::Send always is available' );
 +#  my $msg = Email::Send::Sendmail->is_available;

Modified: trunk/libemail-send-perl/lib/Email/Send.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-send-perl/lib/Email/Send.pm?rev=39796&op=diff
==============================================================================
--- trunk/libemail-send-perl/lib/Email/Send.pm (original)
+++ trunk/libemail-send-perl/lib/Email/Send.pm Sun Jul 12 20:43:46 2009
@@ -2,7 +2,7 @@
 use strict;
 
 use vars qw[$VERSION];
-$VERSION   = '2.197';
+$VERSION   = '2.198';
 
 use Email::Simple;
 use Module::Pluggable

Modified: trunk/libemail-send-perl/lib/Email/Send/NNTP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-send-perl/lib/Email/Send/NNTP.pm?rev=39796&op=diff
==============================================================================
--- trunk/libemail-send-perl/lib/Email/Send/NNTP.pm (original)
+++ trunk/libemail-send-perl/lib/Email/Send/NNTP.pm Sun Jul 12 20:43:46 2009
@@ -5,7 +5,7 @@
 use Net::NNTP;
 use Return::Value;
 
-$VERSION   = '2.197';
+$VERSION   = '2.198';
 
 sub is_available {
     return   eval { require Net::NNTP }

Modified: trunk/libemail-send-perl/lib/Email/Send/Qmail.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-send-perl/lib/Email/Send/Qmail.pm?rev=39796&op=diff
==============================================================================
--- trunk/libemail-send-perl/lib/Email/Send/Qmail.pm (original)
+++ trunk/libemail-send-perl/lib/Email/Send/Qmail.pm Sun Jul 12 20:43:46 2009
@@ -7,7 +7,7 @@
 
 use vars qw[$QMAIL $VERSION];
 $QMAIL   ||= q[qmail-inject];
-$VERSION   = '2.197';
+$VERSION   = '2.198';
 
 sub is_available {
     my $class = shift;

Modified: trunk/libemail-send-perl/lib/Email/Send/SMTP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-send-perl/lib/Email/Send/SMTP.pm?rev=39796&op=diff
==============================================================================
--- trunk/libemail-send-perl/lib/Email/Send/SMTP.pm (original)
+++ trunk/libemail-send-perl/lib/Email/Send/SMTP.pm Sun Jul 12 20:43:46 2009
@@ -5,7 +5,7 @@
 use Email::Address;
 use Return::Value;
 
-$VERSION = '2.197';
+$VERSION = '2.198';
 
 sub is_available {
     my ($class, %args) = @_;

Modified: trunk/libemail-send-perl/lib/Email/Send/Sendmail.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-send-perl/lib/Email/Send/Sendmail.pm?rev=39796&op=diff
==============================================================================
--- trunk/libemail-send-perl/lib/Email/Send/Sendmail.pm (original)
+++ trunk/libemail-send-perl/lib/Email/Send/Sendmail.pm Sun Jul 12 20:43:46 2009
@@ -7,7 +7,7 @@
 
 use vars qw[$SENDMAIL $VERSION];
 
-$VERSION   = '2.197';
+$VERSION   = '2.198';
 
 sub is_available {
     my $class = shift;
@@ -25,8 +25,10 @@
     my $sendmail;
     for my $dir (
       File::Spec->path,
-      File::Spec->catfile('', qw(usr sbin sendmail)),
-      File::Spec->catfile('', qw(usr lib sendmail)),
+      ($ENV{PERL_EMAIL_SEND_SENDMAIL_NO_EXTRA_PATHS} ? () : (
+        File::Spec->catfile('', qw(usr sbin)),
+        File::Spec->catfile('', qw(usr lib)),
+      ))
     ) {
         if ( -x "$dir/sendmail" ) {
             $sendmail = "$dir/sendmail";

Modified: trunk/libemail-send-perl/lib/Email/Send/Test.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-send-perl/lib/Email/Send/Test.pm?rev=39796&op=diff
==============================================================================
--- trunk/libemail-send-perl/lib/Email/Send/Test.pm (original)
+++ trunk/libemail-send-perl/lib/Email/Send/Test.pm Sun Jul 12 20:43:46 2009
@@ -70,7 +70,7 @@
 
 use vars qw{$VERSION};
 BEGIN {
-	$VERSION = '2.197';
+	$VERSION = '2.198';
 }
 
 # No longer allow direct access to the array

Modified: trunk/libemail-send-perl/t/sendmail.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-send-perl/t/sendmail.t?rev=39796&op=diff
==============================================================================
--- trunk/libemail-send-perl/t/sendmail.t (original)
+++ trunk/libemail-send-perl/t/sendmail.t Sun Jul 12 20:43:46 2009
@@ -15,6 +15,8 @@
 EOF
 
 {
+  undef $Email::Send::Sendmail::SENDMAIL;
+  local $ENV{PERL_EMAIL_SEND_SENDMAIL_NO_EXTRA_PATHS} = 1;
   local $ENV{PATH} = '';
   ok( Email::Send::Sendmail->is_available, 'Email::Send always is available' );
   my $msg = Email::Send::Sendmail->is_available;

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