Hello community, here is the log from the commit of package perl-MailTools for openSUSE:Factory checked in at 2013-07-16 15:56:20 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-MailTools (Old) and /work/SRC/openSUSE:Factory/.perl-MailTools.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-MailTools" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-MailTools/perl-MailTools.changes 2012-03-13 09:38:14.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-MailTools.new/perl-MailTools.changes 2013-07-16 15:56:21.000000000 +0200 @@ -1,0 +2,45 @@ +Mon Jul 15 12:47:51 UTC 2013 - [email protected] + +- update to 2.12 + Fixes: + + - default for Mail::Header::new(Modify) is 'false', not 'true' + rt.cpan.org#79985 [Thomas Sibley] + + - Mail::Address take username with rindex(), a bit better than + index() but still poor. + rt.cpan.org#82056 [Filipe Gonçalves] + + Improvements: + + - check for bad folding of header lines + rt.cpan.org#79993 [Thomas Sibley] + + - add a note about better to avoid Mail::Address->name(), + in response to a question by + rt.cpan.org#81459 [Moritz Lenz] + + version 2.11: Wed Aug 29 09:09:47 CEST 2012 + + Fixes: + + - typo in Mail::Mailer::smtp, which only shows up in >5.14 + [cpantesters] + + version 2.10: Tue Aug 28 09:41:52 CEST 2012 + + Fixes: + + - Mail::Mailer::smtp set from address twice. + rt.cpan.org#77161 [Vladimir Goshev] + + - Mail::Mailer::smtps did not support the From option. + rt.cpan.org#77161 [Vladimir Goshev] + +------------------------------------------------------------------- +Mon Jul 15 14:09:27 CEST 2013 - [email protected] + +- fix searching of %INC, make sure the entry really has a set + value. Fixes the perl-MIME-tools module. + +------------------------------------------------------------------- Old: ---- MailTools-2.09.tar.gz New: ---- MailTools-2.12.tar.gz incsearch.diff ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-MailTools.spec ++++++ --- /var/tmp/diff_new_pack.dU3iRz/_old 2013-07-16 15:56:22.000000000 +0200 +++ /var/tmp/diff_new_pack.dU3iRz/_new 2013-07-16 15:56:22.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-MailTools # -# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -15,23 +15,26 @@ # Please submit bugfixes or comments via http://bugs.opensuse.org/ # -# norootforbuild - Name: perl-MailTools Url: http://cpan.org/modules/by-module/Mail/ -Version: 2.09 -Release: 1 +Version: 2.12 +Release: 0 Provides: p_mtools = %{version} Obsoletes: p_mtools < %{version} +Summary: Set of perl modules related to mail applications License: GPL-1.0+ or Artistic-1.0 Group: Development/Libraries/Perl -Summary: Set of perl modules related to mail applications Source: http://search.cpan.org/CPAN/authors/id/M/MA/MARKOV/MailTools-%{version}.tar.gz +Patch: incsearch.diff BuildRoot: %{_tmppath}/%{name}-%{version}-build %{perl_requires} BuildRequires: perl BuildRequires: perl-macros +BuildRequires: perl(Date::Format) +BuildRequires: perl(Date::Parse) +Requires: perl(Date::Format) +Requires: perl(Date::Parse) %description a set of perl modules related to mail applications @@ -39,6 +42,7 @@ %prep %setup -q -n MailTools-%{version} +%patch # --------------------------------------------------------------------------- %build ++++++ MailTools-2.09.tar.gz -> MailTools-2.12.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/ChangeLog new/MailTools-2.12/ChangeLog --- old/MailTools-2.09/ChangeLog 2012-02-25 14:47:44.000000000 +0100 +++ new/MailTools-2.12/ChangeLog 2012-12-21 12:19:05.000000000 +0100 @@ -1,6 +1,49 @@ ==== version history for MailTools +version 2.12: Fri Dec 21 12:18:51 CET 2012 + + Fixes: + + - default for Mail::Header::new(Modify) is 'false', not 'true' + rt.cpan.org#79985 [Thomas Sibley] + + - Mail::Address take username with rindex(), a bit better than + index() but still poor. + rt.cpan.org#82056 [Filipe Gonçalves] + + Improvements: + + - check for bad folding of header lines + rt.cpan.org#79993 [Thomas Sibley] + + - add a note about better to avoid Mail::Address->name(), + in response to a question by + rt.cpan.org#81459 [Moritz Lenz] + +version 2.11: Wed Aug 29 09:09:47 CEST 2012 + + Fixes: + + - typo in Mail::Mailer::smtp, which only shows up in >5.14 + [cpantesters] + +version 2.10: Tue Aug 28 09:41:52 CEST 2012 + + Fixes: + + - Mail::Mailer::smtp set from address twice. + rt.cpan.org#77161 [Vladimir Goshev] + + - Mail::Mailer::smtps did not support the From option. + rt.cpan.org#77161 [Vladimir Goshev] + + Improvements: + + - Mail::Util::mailaddress has now an optional parameter to + set the returned value explicitly. + rt.cpan.org#75975 [Rolf G] + version 2.09: Sat Feb 25 14:47:39 CET 2012 Improvements: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/MANIFEST new/MailTools-2.12/MANIFEST --- old/MailTools-2.09/MANIFEST 2012-02-25 14:47:47.000000000 +0100 +++ new/MailTools-2.12/MANIFEST 2012-12-21 12:19:09.000000000 +0100 @@ -46,4 +46,5 @@ t/require.t t/send.t xt/99pod.t -META.yml Module meta-data (added by MakeMaker) +META.yml Module YAML meta-data (added by MakeMaker) +META.json Module JSON meta-data (added by MakeMaker) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/META.json new/MailTools-2.12/META.json --- old/MailTools-2.09/META.json 1970-01-01 01:00:00.000000000 +0100 +++ new/MailTools-2.12/META.json 2012-12-21 12:19:09.000000000 +0100 @@ -0,0 +1,46 @@ +{ + "abstract" : "Various e-mail related modules", + "author" : [ + "Mark Overmeer <[email protected]>" + ], + "dynamic_config" : 1, + "generated_by" : "ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120921", + "license" : [ + "perl_5" + ], + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";, + "version" : "2" + }, + "name" : "MailTools", + "no_index" : { + "directory" : [ + "t", + "inc" + ] + }, + "prereqs" : { + "build" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "configure" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "runtime" : { + "requires" : { + "Date::Format" : "0", + "Date::Parse" : "0", + "IO::Handle" : "0", + "Net::Domain" : "1.05", + "Net::SMTP" : "1.03", + "Test::More" : "0" + } + } + }, + "release_status" : "stable", + "version" : "2.12" +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/META.yml new/MailTools-2.12/META.yml --- old/MailTools-2.09/META.yml 2012-02-25 14:47:47.000000000 +0100 +++ new/MailTools-2.12/META.yml 2012-12-21 12:19:09.000000000 +0100 @@ -1,27 +1,27 @@ ---- #YAML:1.0 -name: MailTools -version: 2.09 -abstract: Various e-mail related modules +--- +abstract: 'Various e-mail related modules' author: - - Mark Overmeer <[email protected]> -license: perl -distribution_type: module -configure_requires: - ExtUtils::MakeMaker: 0 + - 'Mark Overmeer <[email protected]>' build_requires: - ExtUtils::MakeMaker: 0 -requires: - Date::Format: 0 - Date::Parse: 0 - IO::Handle: 0 - Net::Domain: 1.05 - Net::SMTP: 1.03 - Test::More: 0 -no_index: - directory: - - t - - inc -generated_by: ExtUtils::MakeMaker version 6.56 + ExtUtils::MakeMaker: 0 +configure_requires: + ExtUtils::MakeMaker: 0 +dynamic_config: 1 +generated_by: 'ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120921' +license: perl meta-spec: - url: http://module-build.sourceforge.net/META-spec-v1.4.html - version: 1.4 + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: 1.4 +name: MailTools +no_index: + directory: + - t + - inc +requires: + Date::Format: 0 + Date::Parse: 0 + IO::Handle: 0 + Net::Domain: 1.05 + Net::SMTP: 1.03 + Test::More: 0 +version: 2.12 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/MailTools.ppd new/MailTools-2.12/MailTools.ppd --- old/MailTools-2.09/MailTools.ppd 2012-02-25 14:47:44.000000000 +0100 +++ new/MailTools-2.12/MailTools.ppd 2012-12-21 12:19:05.000000000 +0100 @@ -1,17 +1,14 @@ -<SOFTPKG NAME="MailTools" VERSION="2,06,0,0"> - <TITLE>MailTools</TITLE> +<SOFTPKG NAME="MailTools" VERSION="2.12"> <ABSTRACT>Various e-mail related modules</ABSTRACT> <AUTHOR>Mark Overmeer <[email protected]></AUTHOR> <IMPLEMENTATION> - <DEPENDENCY NAME="Date-Format" VERSION="0,0,0,0" /> - <DEPENDENCY NAME="Date-Parse" VERSION="0,0,0,0" /> - <DEPENDENCY NAME="IO-Handle" VERSION="0,0,0,0" /> - <DEPENDENCY NAME="Net-Domain" VERSION="1,05,0,0" /> - <DEPENDENCY NAME="Net-SMTP" VERSION="1,03,0,0" /> - <DEPENDENCY NAME="Test-More" VERSION="0,0,0,0" /> - <DEPENDENCY NAME="Test-Pod" VERSION="1,0,0,0" /> - <OS NAME="linux" /> - <ARCHITECTURE NAME="x86_64-linux-thread-multi-5.1" /> + <REQUIRE NAME="Date::Format" /> + <REQUIRE NAME="Date::Parse" /> + <REQUIRE NAME="IO::Handle" /> + <REQUIRE NAME="Net::Domain" VERSION="1.05" /> + <REQUIRE NAME="Net::SMTP" VERSION="1.03" /> + <REQUIRE NAME="Test::More" /> + <ARCHITECTURE NAME="x86_64-linux-thread-multi-5.12" /> <CODEBASE HREF="" /> </IMPLEMENTATION> </SOFTPKG> diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/Makefile.PL new/MailTools-2.12/Makefile.PL --- old/MailTools-2.09/Makefile.PL 2012-02-25 14:47:44.000000000 +0100 +++ new/MailTools-2.12/Makefile.PL 2012-12-21 12:19:05.000000000 +0100 @@ -4,7 +4,7 @@ WriteMakefile ( DISTNAME => 'MailTools' - , VERSION => '2.09' + , VERSION => '2.12' , NAME => 'Mail' , AUTHOR => 'Mark Overmeer <[email protected]>' , ABSTRACT => 'Various e-mail related modules' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/lib/Mail/Address.pm new/MailTools-2.12/lib/Mail/Address.pm --- old/MailTools-2.09/lib/Mail/Address.pm 2012-02-25 14:47:45.000000000 +0100 +++ new/MailTools-2.12/lib/Mail/Address.pm 2012-12-21 12:19:05.000000000 +0100 @@ -1,10 +1,10 @@ -# Copyrights 1995-2012 by Mark Overmeer <[email protected]>. +# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.00. package Mail::Address; use vars '$VERSION'; -$VERSION = '2.09'; +$VERSION = '2.12'; use strict; @@ -165,7 +165,7 @@ $next = _find_next $idx+1, $tokens, $len; } elsif($depth) { push @address, $_ } - elsif($next eq "<") { push @phrase, $_ } + elsif($next eq '<') { push @phrase, $_ } elsif( /^[.\@:;]$/ || !@address || $address[-1] =~ /^[.\@:;]$/ ) { push @address, $_ } else @@ -266,7 +266,7 @@ sub user { my $addr = shift->address || ''; - my $i = index $addr, '@'; + my $i = rindex $addr, '@'; $i >= 0 ? substr($addr,0,$i) : $addr; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/lib/Mail/Address.pod new/MailTools-2.12/lib/Mail/Address.pod --- old/MailTools-2.09/lib/Mail/Address.pod 2012-02-25 14:47:45.000000000 +0100 +++ new/MailTools-2.12/lib/Mail/Address.pod 2012-12-21 12:19:05.000000000 +0100 @@ -114,6 +114,10 @@ Using the information contained within the object attempt to identify what the person or groups name is. +B<Note:> This function tries to be smart with the "phrase" of the +email address, which is probably a very bad idea. Consider to use +L<phrase()|Mail::Address/"Accessors"> itself. + =item $obj-E<gt>B<user>() Return the address excluding the '@' and the mail domain diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/lib/Mail/Cap.pm new/MailTools-2.12/lib/Mail/Cap.pm --- old/MailTools-2.09/lib/Mail/Cap.pm 2012-02-25 14:47:45.000000000 +0100 +++ new/MailTools-2.12/lib/Mail/Cap.pm 2012-12-21 12:19:05.000000000 +0100 @@ -1,10 +1,10 @@ -# Copyrights 1995-2012 by Mark Overmeer <[email protected]>. +# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.00. package Mail::Cap; use vars '$VERSION'; -$VERSION = '2.09'; +$VERSION = '2.12'; use strict; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/lib/Mail/Field/AddrList.pm new/MailTools-2.12/lib/Mail/Field/AddrList.pm --- old/MailTools-2.09/lib/Mail/Field/AddrList.pm 2012-02-25 14:47:44.000000000 +0100 +++ new/MailTools-2.12/lib/Mail/Field/AddrList.pm 2012-12-21 12:19:05.000000000 +0100 @@ -1,4 +1,4 @@ -# Copyrights 1995-2012 by Mark Overmeer <[email protected]>. +# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.00. @@ -6,7 +6,7 @@ package Mail::Field::AddrList; use vars '$VERSION'; -$VERSION = '2.09'; +$VERSION = '2.12'; use base 'Mail::Field'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/lib/Mail/Field/Date.pm new/MailTools-2.12/lib/Mail/Field/Date.pm --- old/MailTools-2.09/lib/Mail/Field/Date.pm 2012-02-25 14:47:45.000000000 +0100 +++ new/MailTools-2.12/lib/Mail/Field/Date.pm 2012-12-21 12:19:05.000000000 +0100 @@ -1,4 +1,4 @@ -# Copyrights 1995-2012 by Mark Overmeer <[email protected]>. +# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.00. @@ -6,7 +6,7 @@ package Mail::Field::Date; use vars '$VERSION'; -$VERSION = '2.09'; +$VERSION = '2.12'; use base 'Mail::Field'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/lib/Mail/Field/Generic.pm new/MailTools-2.12/lib/Mail/Field/Generic.pm --- old/MailTools-2.09/lib/Mail/Field/Generic.pm 2012-02-25 14:47:45.000000000 +0100 +++ new/MailTools-2.12/lib/Mail/Field/Generic.pm 2012-12-21 12:19:05.000000000 +0100 @@ -1,10 +1,10 @@ -# Copyrights 1995-2012 by Mark Overmeer <[email protected]>. +# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.00. package Mail::Field::Generic; use vars '$VERSION'; -$VERSION = '2.09'; +$VERSION = '2.12'; use Carp; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/lib/Mail/Field.pm new/MailTools-2.12/lib/Mail/Field.pm --- old/MailTools-2.09/lib/Mail/Field.pm 2012-02-25 14:47:45.000000000 +0100 +++ new/MailTools-2.12/lib/Mail/Field.pm 2012-12-21 12:19:05.000000000 +0100 @@ -1,10 +1,10 @@ -# Copyrights 1995-2012 by Mark Overmeer <[email protected]>. +# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.00. package Mail::Field; use vars '$VERSION'; -$VERSION = '2.09'; +$VERSION = '2.12'; use Carp; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/lib/Mail/Filter.pm new/MailTools-2.12/lib/Mail/Filter.pm --- old/MailTools-2.09/lib/Mail/Filter.pm 2012-02-25 14:47:45.000000000 +0100 +++ new/MailTools-2.12/lib/Mail/Filter.pm 2012-12-21 12:19:05.000000000 +0100 @@ -1,11 +1,11 @@ -# Copyrights 1995-2012 by Mark Overmeer <[email protected]>. +# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.00. use strict; package Mail::Filter; use vars '$VERSION'; -$VERSION = '2.09'; +$VERSION = '2.12'; use Carp; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/lib/Mail/Header.pm new/MailTools-2.12/lib/Mail/Header.pm --- old/MailTools-2.09/lib/Mail/Header.pm 2012-02-25 14:47:45.000000000 +0100 +++ new/MailTools-2.12/lib/Mail/Header.pm 2012-12-21 12:19:05.000000000 +0100 @@ -1,10 +1,10 @@ -# Copyrights 1995-2012 by Mark Overmeer <[email protected]>. +# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.00. package Mail::Header; use vars '$VERSION'; -$VERSION = '2.09'; +$VERSION = '2.12'; use strict; @@ -180,8 +180,15 @@ || $HDR_LENGTHS{$tag} || $self->fold_length; - _fold_line $line, $maxlen - if $modify && defined $maxlen; + if ($modify && defined $maxlen) + { # folding will fix bad header continuations for us + _fold_line $line, $maxlen; + } + elsif($line =~ /\r?\n\S/) + { return _error "Bad header continuation, skipping '$tag': ", + "no space after newline in '$line'\n"; + } + $line =~ s/\n*$/\n/so; ($tag, $line); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/lib/Mail/Header.pod new/MailTools-2.12/lib/Mail/Header.pod --- old/MailTools-2.09/lib/Mail/Header.pod 2012-02-25 14:47:45.000000000 +0100 +++ new/MailTools-2.12/lib/Mail/Header.pod 2012-12-21 12:19:06.000000000 +0100 @@ -52,7 +52,7 @@ -Option --Default FoldLength 79 MailFrom 'KEEP' - Modify true + Modify false =over 2 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/lib/Mail/Internet.pm new/MailTools-2.12/lib/Mail/Internet.pm --- old/MailTools-2.09/lib/Mail/Internet.pm 2012-02-25 14:47:45.000000000 +0100 +++ new/MailTools-2.12/lib/Mail/Internet.pm 2012-12-21 12:19:05.000000000 +0100 @@ -1,10 +1,10 @@ -# Copyrights 1995-2012 by Mark Overmeer <[email protected]>. +# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.00. package Mail::Internet; use vars '$VERSION'; -$VERSION = '2.09'; +$VERSION = '2.12'; use strict; # use warnings? probably breaking too much code @@ -284,8 +284,8 @@ my $name = $sender->name; unless(defined $name) { my $fr = $self->get('From'); - defined $fr and $fr = (Mail::Address->parse($fr))[0]; - defined $fr and $name = $fr->name; + $fr = (Mail::Address->parse($fr))[0] if defined $fr; + $name = $fr->name if defined $fr; } my $indent = $arg{Indent} || ">"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/lib/Mail/Mailer/qmail.pm new/MailTools-2.12/lib/Mail/Mailer/qmail.pm --- old/MailTools-2.09/lib/Mail/Mailer/qmail.pm 2012-02-25 14:47:45.000000000 +0100 +++ new/MailTools-2.12/lib/Mail/Mailer/qmail.pm 2012-12-21 12:19:05.000000000 +0100 @@ -1,4 +1,4 @@ -# Copyrights 1995-2012 by Mark Overmeer <[email protected]>. +# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.00. @@ -7,7 +7,7 @@ package Mail::Mailer::qmail; use vars '$VERSION'; -$VERSION = '2.09'; +$VERSION = '2.12'; use base 'Mail::Mailer::rfc822'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/lib/Mail/Mailer/rfc822.pm new/MailTools-2.12/lib/Mail/Mailer/rfc822.pm --- old/MailTools-2.09/lib/Mail/Mailer/rfc822.pm 2012-02-25 14:47:45.000000000 +0100 +++ new/MailTools-2.12/lib/Mail/Mailer/rfc822.pm 2012-12-21 12:19:05.000000000 +0100 @@ -1,4 +1,4 @@ -# Copyrights 1995-2012 by Mark Overmeer <[email protected]>. +# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.00. @@ -6,7 +6,7 @@ package Mail::Mailer::rfc822; use vars '$VERSION'; -$VERSION = '2.09'; +$VERSION = '2.12'; use base 'Mail::Mailer'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/lib/Mail/Mailer/sendmail.pm new/MailTools-2.12/lib/Mail/Mailer/sendmail.pm --- old/MailTools-2.09/lib/Mail/Mailer/sendmail.pm 2012-02-25 14:47:45.000000000 +0100 +++ new/MailTools-2.12/lib/Mail/Mailer/sendmail.pm 2012-12-21 12:19:05.000000000 +0100 @@ -1,4 +1,4 @@ -# Copyrights 1995-2012 by Mark Overmeer <[email protected]>. +# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.00. @@ -6,7 +6,7 @@ package Mail::Mailer::sendmail; use vars '$VERSION'; -$VERSION = '2.09'; +$VERSION = '2.12'; use base 'Mail::Mailer::rfc822'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/lib/Mail/Mailer/smtp.pm new/MailTools-2.12/lib/Mail/Mailer/smtp.pm --- old/MailTools-2.09/lib/Mail/Mailer/smtp.pm 2012-02-25 14:47:44.000000000 +0100 +++ new/MailTools-2.12/lib/Mail/Mailer/smtp.pm 2012-12-21 12:19:05.000000000 +0100 @@ -1,4 +1,4 @@ -# Copyrights 1995-2012 by Mark Overmeer <[email protected]>. +# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.00. @@ -6,7 +6,7 @@ package Mail::Mailer::smtp; use vars '$VERSION'; -$VERSION = '2.09'; +$VERSION = '2.12'; use base 'Mail::Mailer::rfc822'; @@ -32,9 +32,7 @@ ${*$self}{sock} = $smtp; - $smtp->mail(mailaddress); - $smtp->mail($opt{From}) if $opt{From}; - + $smtp->mail($opt{From} || mailaddress()); $smtp->to($_) for @$to; $smtp->data; @@ -87,7 +85,7 @@ package Mail::Mailer::smtp::pipe; use vars '$VERSION'; -$VERSION = '2.09'; +$VERSION = '2.12'; sub TIEHANDLE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/lib/Mail/Mailer/smtps.pm new/MailTools-2.12/lib/Mail/Mailer/smtps.pm --- old/MailTools-2.09/lib/Mail/Mailer/smtps.pm 2012-02-25 14:47:45.000000000 +0100 +++ new/MailTools-2.12/lib/Mail/Mailer/smtps.pm 2012-12-21 12:19:05.000000000 +0100 @@ -1,4 +1,4 @@ -# Copyrights 1995-2012 by Mark Overmeer <[email protected]>. +# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.00. @@ -8,7 +8,7 @@ package Mail::Mailer::smtps; use vars '$VERSION'; -$VERSION = '2.09'; +$VERSION = '2.12'; use base 'Mail::Mailer::rfc822'; @@ -35,7 +35,7 @@ ${*$self}{sock} = $smtp; - $smtp->mail(mailaddress); + $smtp->mail($opt{From} || mailaddress); $smtp->to($_) for @$to; $smtp->data; @@ -90,7 +90,7 @@ package Mail::Mailer::smtps::pipe; use vars '$VERSION'; -$VERSION = '2.09'; +$VERSION = '2.12'; sub TIEHANDLE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/lib/Mail/Mailer/testfile.pm new/MailTools-2.12/lib/Mail/Mailer/testfile.pm --- old/MailTools-2.09/lib/Mail/Mailer/testfile.pm 2012-02-25 14:47:45.000000000 +0100 +++ new/MailTools-2.12/lib/Mail/Mailer/testfile.pm 2012-12-21 12:19:05.000000000 +0100 @@ -1,4 +1,4 @@ -# Copyrights 1995-2012 by Mark Overmeer <[email protected]>. +# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.00. @@ -6,7 +6,7 @@ package Mail::Mailer::testfile; use vars '$VERSION'; -$VERSION = '2.09'; +$VERSION = '2.12'; use base 'Mail::Mailer::rfc822'; @@ -36,7 +36,7 @@ package Mail::Mailer::testfile::pipe; use vars '$VERSION'; -$VERSION = '2.09'; +$VERSION = '2.12'; sub TIEHANDLE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/lib/Mail/Mailer.pm new/MailTools-2.12/lib/Mail/Mailer.pm --- old/MailTools-2.09/lib/Mail/Mailer.pm 2012-02-25 14:47:45.000000000 +0100 +++ new/MailTools-2.12/lib/Mail/Mailer.pm 2012-12-21 12:19:05.000000000 +0100 @@ -1,4 +1,4 @@ -# Copyrights 1995-2012 by Mark Overmeer <[email protected]>. +# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.00. @@ -6,7 +6,7 @@ package Mail::Mailer; use vars '$VERSION'; -$VERSION = '2.09'; +$VERSION = '2.12'; use base 'IO::Handle'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/lib/Mail/Send.pm new/MailTools-2.12/lib/Mail/Send.pm --- old/MailTools-2.09/lib/Mail/Send.pm 2012-02-25 14:47:45.000000000 +0100 +++ new/MailTools-2.12/lib/Mail/Send.pm 2012-12-21 12:19:05.000000000 +0100 @@ -1,4 +1,4 @@ -# Copyrights 1995-2012 by Mark Overmeer <[email protected]>. +# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.00. @@ -6,7 +6,7 @@ use strict; package Mail::Send; use vars '$VERSION'; -$VERSION = '2.09'; +$VERSION = '2.12'; use Carp; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/lib/Mail/Util.pm new/MailTools-2.12/lib/Mail/Util.pm --- old/MailTools-2.09/lib/Mail/Util.pm 2012-02-25 14:47:45.000000000 +0100 +++ new/MailTools-2.12/lib/Mail/Util.pm 2012-12-21 12:19:05.000000000 +0100 @@ -1,4 +1,4 @@ -# Copyrights 1995-2012 by Mark Overmeer <[email protected]>. +# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.00. @@ -6,7 +6,7 @@ package Mail::Util; use vars '$VERSION'; -$VERSION = '2.09'; +$VERSION = '2.12'; use base 'Exporter'; @@ -120,9 +120,11 @@ } -sub mailaddress() -{ return $mailaddress - if defined $mailaddress; +sub mailaddress(;$) +{ $mailaddress = shift if @_; + + return $mailaddress + if defined $mailaddress; # Get user name from environment $mailaddress = $ENV{MAILADDRESS}; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/lib/Mail/Util.pod new/MailTools-2.12/lib/Mail/Util.pod --- old/MailTools-2.09/lib/Mail/Util.pod 2012-02-25 14:47:46.000000000 +0100 +++ new/MailTools-2.12/lib/Mail/Util.pod 2012-12-21 12:19:07.000000000 +0100 @@ -21,10 +21,11 @@ =over 4 -=item B<mailaddress>() +=item B<mailaddress>([ADDRESS]) Return a guess at the current users mail address. The user can force the return value by setting the MAILADDRESS environment variable. +[2.10] You may set the ADDRESS via the parameter. WARNING: When not supplied via the environment variable, <mailaddress> looks at @@ -43,6 +44,9 @@ use Mail::Util 'mailaddress'; print mailaddress; + # since v2.10 + mailaddress "[email protected]"; + =item B<maildomain>() Attempt to determine the current uers mail domain string via the following diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.09/t/header.t new/MailTools-2.12/t/header.t --- old/MailTools-2.09/t/header.t 2012-02-25 14:47:44.000000000 +0100 +++ new/MailTools-2.12/t/header.t 2012-12-21 12:19:05.000000000 +0100 @@ -1,10 +1,9 @@ require Mail::Header; -print "1..25\n"; +print "1..34\n"; -$h = new Mail::Header; - -$t = 0; +my $h = Mail::Header->new; +my $t = 0; $h->header_hashref({hhrtest1 => 1, hhrtest2 => [1, "this test line was written by TobiX\n"]}); @@ -173,3 +172,50 @@ print $h->as_string,"\n----\n",$headout,"\nnot " unless $h->as_string eq $headout; printf "ok %d\n",++$t; + +{ # Contributed by Thomas Sibley, introduced in v2.12 + my $bad_continuation = "foo\@example.com\nBcc: evil\@example.com\n"; + my $bad_header = "To: $bad_continuation"; + + my @warnings; + local $SIG{__WARN__} = sub { push @warnings, "@_" }; + + print "not " + unless $h = new Mail::Header [$bad_header]; + printf "ok %d\n",++$t; + + print "not " + unless @warnings == 1 and shift(@warnings) =~ /bad header continuation/i; + printf "ok %d\n",++$t; + + print "not " + if $h->get("To") or $h->get("Bcc"); + printf "ok %d\n",++$t; + + print "not " + unless $h = new Mail::Header [$bad_header], Modify => 1; + printf "ok %d\n",++$t; + + print "not " + if @warnings; + printf "ok %d\n",++$t; + + (my $to = $bad_continuation) =~ s/\n//; # replace the first newline only + print "not " + unless $h->get("To") eq $to; + printf "ok %d\n",++$t; + + print "not " + if $h->get("Bcc"); + printf "ok %d\n",++$t; + + my $continued = "foo\@example.com,\n bar\@example.com\n"; + print "not " + unless $h = new Mail::Header ["To: $continued"]; + printf "ok %d\n",++$t; + + print "not " + unless $h->get("To") eq $continued; + printf "ok %d\n",++$t; +} + ++++++ incsearch.diff ++++++ %INC is randomized nowadays, so sort it to get consistent results. Also, more important, make sure $INC{$f} is really set, otherwise we end up searching the filesystem root. --- ./lib/Mail/Field.pm.orig 2013-07-15 12:06:12.000000000 +0000 +++ ./lib/Mail/Field.pm 2013-07-15 12:07:24.000000000 +0000 @@ -63,8 +63,9 @@ sub import } my($dir,$dir_sep); - foreach my $f (keys %INC) + foreach my $f (sort keys %INC) { next if $f !~ /^Mail(\W)Field\W/i; + next unless $INC{$f}; $dir_sep = $1; $dir = ($INC{$f} =~ /(.*Mail\W+Field)/i)[0] . $dir_sep; last; -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
