commit perl-MailTools

17 May 2007

Hello community,

here is the log from the commit of package perl-MailTools
checked in at Thu May 17 11:52:12 CEST 2007.

--------

--- perl-MailTools/perl-MailTools.changes	2007-04-12 11:49:15.000000000 +0200
+++ /mounts/work_src_done/STABLE/perl-MailTools/perl-MailTools.changes	2007-05-15 16:21:54.000000000 +0200
@@ -1,0 +2,10 @@
+Tue May 15 16:09:11 CEST 2007 - anicka@suse.cz
+
+- update to 1.77
+  * fixed syntax error in qmail.pm
+  * die if qmail's exec fails.
+  * require Data::Format
+  * corrected header field folding according to rfc2822, which
+    may break some ancient (poor) applications.
+
+-------------------------------------------------------------------

Old:
----
  MailTools-1.76.tar.bz2

New:
----
  MailTools-1.77.tar.bz2

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-MailTools.spec ++++++
--- /var/tmp/diff_new_pack.qY5124/_old	2007-05-17 11:52:02.000000000 +0200
+++ /var/tmp/diff_new_pack.qY5124/_new	2007-05-17 11:52:02.000000000 +0200
@@ -1,5 +1,5 @@
 #
-# spec file for package perl-MailTools (Version 1.76)
+# spec file for package perl-MailTools (Version 1.77)
 #
 # Copyright (c) 2007 SUSE LINUX Products GmbH, Nuernberg, Germany.
 # This file and all modifications and additions to the pristine
@@ -12,7 +12,7 @@
 
 Name:           perl-MailTools
 URL:            http://cpan.org/modules/by-module/Mail/
-Version:        1.76
+Version:        1.77
 Release:        1
 Provides:       p_mtools
 Obsoletes:      p_mtools
@@ -58,6 +58,13 @@
 %doc ChangeLog MANIFEST README  README.demos examples
 
 %changelog
+* Tue May 15 2007 - anicka@suse.cz
+- update to 1.77
+  * fixed syntax error in qmail.pm
+  * die if qmail's exec fails.
+  * require Data::Format
+  * corrected header field folding according to rfc2822, which
+  may break some ancient (poor) applications.
 * Thu Apr 12 2007 - anicka@suse.cz
 - update to 1.76
   * The tag (field label) casing is "normalized" which is not

++++++ MailTools-1.76.tar.bz2 -> MailTools-1.77.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.76/ChangeLog new/MailTools-1.77/ChangeLog
--- old/MailTools-1.76/ChangeLog	2007-04-10 09:25:31.000000000 +0200
+++ new/MailTools-1.77/ChangeLog	2007-05-11 14:16:05.000000000 +0200
@@ -1,7 +1,20 @@
 
 ==== version history for MailTools
 
-version 1.77: Tue Apr 10 09:25:29 CEST 2007
+version 1.77: Fri May 11 14:16:01 CEST 2007
+
+	- fixed syntax error in qmail.pm, patch by [Alexey Tourbin]
+	  also reported by [Volker Paulsen]
+
+	- die if qmail's exec fails.
+
+	- require Data::Format
+
+	- corrected header field folding according to rfc2822, which
+	  may break some ancient (poor) applications.
+	  Patch by [Christopher Madsen]
+
+version 1.76: Tue Apr 10 09:25:29 CEST 2007
 
 	- The tag (field label) casing is "normalized" which is not
 	  required (as the comment in the code told), but a mis-
@@ -21,7 +34,7 @@
 version 1.75: Wed Jun 14 15:30:25 CEST 2006
 
 	- [Mike Lerley] reported that environment variables are not
-	  thread-safe in mod_perl.  Therefore, he required to pass the
+	  thread-safe in mod_perl.  Therefore, we must pass the
 	  sender of the message explictly on qmail's command-line.
 	  His addapted patch included.
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.76/Mail/Address.pm new/MailTools-1.77/Mail/Address.pm
--- old/MailTools-1.76/Mail/Address.pm	2007-04-10 09:23:01.000000000 +0200
+++ new/MailTools-1.77/Mail/Address.pm	2007-05-11 14:16:37.000000000 +0200
@@ -10,9 +10,9 @@
 
 use Carp;
 use vars qw($VERSION);
-# use locale;   removed in version 1.76, because it causes taint problems
+# use locale;   removed in version 1.77, because it causes taint problems
 
-$VERSION = "1.76";
+$VERSION = "1.77";
 sub Version { $VERSION }
 
 #
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.76/Mail/Cap.pm new/MailTools-1.77/Mail/Cap.pm
--- old/MailTools-1.76/Mail/Cap.pm	2007-04-10 09:23:01.000000000 +0200
+++ new/MailTools-1.77/Mail/Cap.pm	2007-05-11 14:16:37.000000000 +0200
@@ -11,7 +11,7 @@
 
 use vars qw($VERSION $useCache);
 
-$VERSION = "1.76";
+$VERSION = "1.77";
 sub Version { $VERSION; }
 
 =head1 NAME
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.76/Mail/Field/AddrList.pm new/MailTools-1.77/Mail/Field/AddrList.pm
--- old/MailTools-1.76/Mail/Field/AddrList.pm	2007-04-10 09:23:01.000000000 +0200
+++ new/MailTools-1.77/Mail/Field/AddrList.pm	2007-05-11 14:16:37.000000000 +0200
@@ -53,7 +53,7 @@
 use Mail::Address;
 
 @ISA = qw(Mail::Field);
-$VERSION = '1.76';
+$VERSION = '1.77';
 
 # install header interpretation, see Mail::Field
 INIT: {
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.76/Mail/Field/Date.pm new/MailTools-1.77/Mail/Field/Date.pm
--- old/MailTools-1.76/Mail/Field/Date.pm	2007-04-10 09:23:01.000000000 +0200
+++ new/MailTools-1.77/Mail/Field/Date.pm	2007-05-11 14:16:37.000000000 +0200
@@ -15,7 +15,7 @@
 use Date::Parse qw(str2time);
 
 @ISA = qw(Mail::Field);
-$VERSION = '1.76';
+$VERSION = '1.77';
 
 bless([])->register('Date');
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.76/Mail/Field.pm new/MailTools-1.77/Mail/Field.pm
--- old/MailTools-1.76/Mail/Field.pm	2007-04-10 09:23:01.000000000 +0200
+++ new/MailTools-1.77/Mail/Field.pm	2007-05-11 14:16:37.000000000 +0200
@@ -13,7 +13,7 @@
 use strict;
 use vars qw($AUTOLOAD $VERSION);
 
-$VERSION = "1.76";
+$VERSION = "1.77";
 
 unless(defined &UNIVERSAL::can) {
     *UNIVERSAL::can = sub {
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.76/Mail/Filter.pm new/MailTools-1.77/Mail/Filter.pm
--- old/MailTools-1.76/Mail/Filter.pm	2007-04-10 09:23:01.000000000 +0200
+++ new/MailTools-1.77/Mail/Filter.pm	2007-05-11 14:16:37.000000000 +0200
@@ -11,7 +11,7 @@
 use strict;
 use vars qw($VERSION);
 
-$VERSION = "1.76";
+$VERSION = "1.77";
 
 sub new {
     my $self = shift;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.76/Mail/Header.pm new/MailTools-1.77/Mail/Header.pm
--- old/MailTools-1.76/Mail/Header.pm	2007-04-10 09:23:01.000000000 +0200
+++ new/MailTools-1.77/Mail/Header.pm	2007-05-11 14:16:37.000000000 +0200
@@ -20,7 +20,7 @@
 use Carp;
 use vars qw($VERSION $FIELD_NAME);
 
-$VERSION = "1.76";
+$VERSION = "1.77";
 
 my $MAIL_FROM = 'KEEP';
 my %HDR_LENGTHS = ();
@@ -106,7 +106,7 @@
  my $min = int($maxlen * 4 / 5) - 4;
  my $ml = $maxlen;
 
- $_[0] =~ s/[\r\n]+/ /og;       # Remove new-lines
+ $_[0] =~ s/[\r\n]+//og;        # Remove new-lines
  $_[0] =~ s/\s*\Z/\n/so;        # End line with a EOLN
 
  return if $_[0] =~ /^From\s/io;
@@ -136,7 +136,7 @@
     }
    else
     {
-      $_[0] =~ s/(.{$min,$max})\s+/$+\n /g;
+      $_[0] =~ s/(.{$min,$max})(\s)/$1\n$2/g;
       $_[0] =~ s/\s*$/\n/s;
     }
   }
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.76/Mail/Internet.pm new/MailTools-1.77/Mail/Internet.pm
--- old/MailTools-1.76/Mail/Internet.pm	2007-04-10 09:23:01.000000000 +0200
+++ new/MailTools-1.77/Mail/Internet.pm	2007-05-11 14:16:37.000000000 +0200
@@ -17,7 +17,7 @@
 use vars qw($VERSION);
 
 BEGIN {
-    $VERSION = "1.76";
+    $VERSION = "1.77";
     *AUTOLOAD = \&AutoLoader::AUTOLOAD;
 
     unless(defined &UNIVERSAL::isa) {
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.76/Mail/Mailer/qmail.pm new/MailTools-1.77/Mail/Mailer/qmail.pm
--- old/MailTools-1.76/Mail/Mailer/qmail.pm	2007-04-10 09:23:01.000000000 +0200
+++ new/MailTools-1.77/Mail/Mailer/qmail.pm	2007-05-11 14:16:37.000000000 +0200
@@ -5,6 +5,8 @@
 
 sub exec {
     my($self, $exe, $args, $to, $sender) = @_;
-    my $address = defined $sender && $sender =~ m/\<(.*?)\> ? $1 : $sender;
+    my $address = defined $sender && $sender =~ m/\<(.*?)\>/ ? $1 : $sender;
+
     exec($exe, (defined $address ? "-f$address" : ()));
+    die "ERROR: cannot run $exe: $!";
 }
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.76/Mail/Mailer.pm new/MailTools-1.77/Mail/Mailer.pm
--- old/MailTools-1.76/Mail/Mailer.pm	2007-04-10 09:23:01.000000000 +0200
+++ new/MailTools-1.77/Mail/Mailer.pm	2007-05-11 14:16:37.000000000 +0200
@@ -127,7 +127,7 @@
 use Config;
 use strict;
 
-$VERSION = "1.76";
+$VERSION = "1.77";
 
 sub Version { $VERSION }
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.76/Mail/Send.pm new/MailTools-1.77/Mail/Send.pm
--- old/MailTools-1.76/Mail/Send.pm	2007-04-10 09:23:01.000000000 +0200
+++ new/MailTools-1.77/Mail/Send.pm	2007-05-11 14:16:37.000000000 +0200
@@ -8,7 +8,7 @@
 use vars qw($VERSION);
 require Mail::Mailer;
 
-$VERSION = "1.76";
+$VERSION = "1.77";
 
 sub Version { $VERSION }
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.76/Mail/Util.pm new/MailTools-1.77/Mail/Util.pm
--- old/MailTools-1.76/Mail/Util.pm	2007-04-10 09:23:01.000000000 +0200
+++ new/MailTools-1.77/Mail/Util.pm	2007-05-11 14:16:37.000000000 +0200
@@ -15,7 +15,7 @@
 BEGIN {
     require 5.000;
 
-    $VERSION = "1.76";
+    $VERSION = "1.77";
 
     *AUTOLOAD = \&AutoLoader::AUTOLOAD;
     @ISA = qw(Exporter);
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.76/MailTools.ppd new/MailTools-1.77/MailTools.ppd
--- old/MailTools-1.76/MailTools.ppd	2006-06-14 15:30:33.000000000 +0200
+++ new/MailTools-1.77/MailTools.ppd	2007-05-11 14:16:42.000000000 +0200
@@ -1,4 +1,4 @@
-<SOFTPKG NAME="MailTools" VERSION="1,75,0,0">
+<SOFTPKG NAME="MailTools" VERSION="1,77,0,0">
     <TITLE>MailTools</TITLE>
     <ABSTRACT>Various Mail related modules</ABSTRACT>
     <AUTHOR>Mark Overmeer <mailtools@overmeer.net></AUTHOR>
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.76/Makefile.PL new/MailTools-1.77/Makefile.PL
--- old/MailTools-1.76/Makefile.PL	2007-04-10 09:23:00.000000000 +0200
+++ new/MailTools-1.77/Makefile.PL	2007-05-11 14:16:37.000000000 +0200
@@ -5,7 +5,7 @@
 
 $NAME     = 'Mail';
 $DISTNAME = "MailTools";
-$VERSION  = "1.76";
+$VERSION  = "1.77";
 
 BEGIN { require 5.001 }
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.76/META.yml new/MailTools-1.77/META.yml
--- old/MailTools-1.76/META.yml	2007-04-10 09:25:36.000000000 +0200
+++ new/MailTools-1.77/META.yml	2007-05-11 14:16:44.000000000 +0200
@@ -1,10 +1,10 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         MailTools
-version:      1.76
+version:      1.77
 version_from: 
 installdirs:  site
 requires:
 
 distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30
+generated_by: ExtUtils::MakeMaker version 6.17
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MailTools-1.76/t/header.t new/MailTools-1.77/t/header.t
--- old/MailTools-1.76/t/header.t	2004-03-10 10:51:21.000000000 +0100
+++ new/MailTools-1.77/t/header.t	2007-04-19 09:46:39.000000000 +0200
@@ -1,6 +1,6 @@
 require Mail::Header;
 
-print "1..22\n";
+print "1..25\n";
 
 $h = new Mail::Header;
 
@@ -75,6 +75,20 @@
 	unless $h->get(Date => 2) eq "an even\n longer test\n header\n";
 printf "ok %d\n",++$t;
 
+$h->fold(30);
+
+print "not "
+       unless $h->get(Date => 0) eq "a test header\n";
+printf "ok %d\n",++$t;
+
+print "not "
+       unless $h->get(Date => 1) eq "a longer test header\n";
+printf "ok %d\n",++$t;
+
+print "not "
+       unless $h->get(Date => 2) eq "an even longer test\n header\n";
+printf "ok %d\n",++$t;
+
 $h->unfold;
 
 print "not "


++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++



Remember to have fun...

---------------------------------------------------------------------
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org

    

root＠Hilbert.suse.de

tags

participants (1)