Hello community, here is the log from the commit of package perl-MailTools for openSUSE:Factory checked in at 2015-04-25 21:16:59 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 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 2013-07-16 15:56:21.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-MailTools.new/perl-MailTools.changes 2015-04-25 21:17:01.000000000 +0200 @@ -1,0 +2,32 @@ +Fri Apr 17 09:11:57 UTC 2015 - [email protected] + +- updated to 2.14 + see /usr/share/doc/packages/perl-MailTools/ChangeLog + + version 2.14: Fri Nov 21 17:12:42 CET 2014 + + Fixes: + + - threads and Mail::Field initiation + rt.cpan.org#99153 [Autumn Lansing] and [Arne Becker] + + Improvements: + + - warn when loading of some Mail::Field::* fails [Arne Becker] + + version 2.13: Sun Jan 5 18:52:25 CET 2014 + + Fixes: + + - optional 'from' and 'on' component in in-reply-to are comments + rt.cpan.org#89371 [Ward Vandewege] + - mailcap \\ -> \ + rt.cpan.org#89802 [Kevin Ryde] + + Improvements: + + - fix typos rt.cpan.org#87188 [D Steinbrunner] + +- remove obsolete incsearch.diff + +------------------------------------------------------------------- Old: ---- MailTools-2.12.tar.gz incsearch.diff New: ---- MailTools-2.14.tar.gz cpanspec.yml ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-MailTools.spec ++++++ --- /var/tmp/diff_new_pack.DHW0RU/_old 2015-04-25 21:17:02.000000000 +0200 +++ /var/tmp/diff_new_pack.DHW0RU/_new 2015-04-25 21:17:02.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-MailTools # -# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,51 +17,45 @@ Name: perl-MailTools -Url: http://cpan.org/modules/by-module/Mail/ -Version: 2.12 +Version: 2.14 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 +%define cpan_name MailTools +Summary: Various e-mail related modules +License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl -Source: http://search.cpan.org/CPAN/authors/id/M/MA/MARKOV/MailTools-%{version}.tar.gz -Patch: incsearch.diff +Url: http://search.cpan.org/dist/MailTools/ +Source0: http://search.cpan.org/CPAN/authors/id/M/MA/MARKOV/MailTools-%{version}.tar.gz +Source1: cpanspec.yml +BuildArch: noarch 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) +%{perl_requires} %description -a set of perl modules related to mail applications - +Various e-mail related modules %prep -%setup -q -n MailTools-%{version} -%patch -# --------------------------------------------------------------------------- +%setup -q -n %{cpan_name}-%{version} %build -perl Makefile.PL -make %{?_smp_mflags} +%{__perl} Makefile.PL INSTALLDIRS=vendor +%{__make} %{?_smp_mflags} %check -make test -# --------------------------------------------------------------------------- +%{__make} test %install -make DESTDIR=$RPM_BUILD_ROOT install_vendor +%perl_make_install %perl_process_packlist +%perl_gen_filelist -%files -%defattr(-,root,root) -%{perl_vendorlib}/Mail -%{perl_vendorarch}/auto/Mail -%doc /usr/share/man/man3/*.gz -%doc ChangeLog MANIFEST README README.demos examples +%files -f %{name}.files +%defattr(-,root,root,755) +%doc ChangeLog examples MailTools.ppd README README.demos %changelog ++++++ MailTools-2.12.tar.gz -> MailTools-2.14.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/ChangeLog new/MailTools-2.14/ChangeLog --- old/MailTools-2.12/ChangeLog 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/ChangeLog 2014-11-21 17:12:50.000000000 +0100 @@ -1,6 +1,30 @@ ==== version history for MailTools +version 2.14: Fri Nov 21 17:12:42 CET 2014 + + Fixes: + + - threads and Mail::Field initiation + rt.cpan.org#99153 [Autumn Lansing] and [Arne Becker] + + Improvements: + + - warn when loading of some Mail::Field::* fails [Arne Becker] + +version 2.13: Sun Jan 5 18:52:25 CET 2014 + + Fixes: + + - optional 'from' and 'on' component in in-reply-to are comments + rt.cpan.org#89371 [Ward Vandewege] + - mailcap \\\\ -> \\ + rt.cpan.org#89802 [Kevin Ryde] + + Improvements: + + - fix typos rt.cpan.org#87188 [D Steinbrunner] + version 2.12: Fri Dec 21 12:18:51 CET 2012 Fixes: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/META.json new/MailTools-2.14/META.json --- old/MailTools-2.12/META.json 2012-12-21 12:19:09.000000000 +0100 +++ new/MailTools-2.14/META.json 2014-11-21 17:12:51.000000000 +0100 @@ -4,7 +4,7 @@ "Mark Overmeer <[email protected]>" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120921", + "generated_by" : "ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter version 2.120630", "license" : [ "perl_5" ], @@ -42,5 +42,5 @@ } }, "release_status" : "stable", - "version" : "2.12" + "version" : "2.14" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/META.yml new/MailTools-2.14/META.yml --- old/MailTools-2.12/META.yml 2012-12-21 12:19:09.000000000 +0100 +++ new/MailTools-2.14/META.yml 2014-11-21 17:12:51.000000000 +0100 @@ -7,7 +7,7 @@ configure_requires: ExtUtils::MakeMaker: 0 dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120921' +generated_by: 'ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter version 2.120630' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -24,4 +24,4 @@ Net::Domain: 1.05 Net::SMTP: 1.03 Test::More: 0 -version: 2.12 +version: 2.14 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/Makefile.PL new/MailTools-2.14/Makefile.PL --- old/MailTools-2.12/Makefile.PL 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/Makefile.PL 2014-11-21 17:12:50.000000000 +0100 @@ -4,7 +4,7 @@ WriteMakefile ( DISTNAME => 'MailTools' - , VERSION => '2.12' + , VERSION => '2.14' , 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.12/lib/Mail/Address.pm new/MailTools-2.14/lib/Mail/Address.pm --- old/MailTools-2.12/lib/Mail/Address.pm 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Address.pm 2014-11-21 17:12:50.000000000 +0100 @@ -1,10 +1,10 @@ -# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2014 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. +# Pod stripped from pm file by OODoc 2.01. package Mail::Address; use vars '$VERSION'; -$VERSION = '2.12'; +$VERSION = '2.14'; use strict; @@ -158,7 +158,7 @@ elsif($_ eq '<') { $depth++ } elsif($_ eq '>') { $depth-- if $depth } elsif($_ eq ',' || $_ eq ';') - { warn "Unmatched '<>' in $line" if($depth); + { warn "Unmatched '<>' in $line" if $depth; my $o = $class->_complete(\@phrase, \@address, \@comment); push @objs, $o if defined $o; $depth = 0; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Address.pod new/MailTools-2.14/lib/Mail/Address.pod --- old/MailTools-2.12/lib/Mail/Address.pod 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Address.pod 2014-11-21 17:12:50.000000000 +0100 @@ -1,3 +1,5 @@ +=encoding utf8 + =head1 NAME Mail::Address - Parse mail addresses @@ -31,7 +33,7 @@ =item * -limitted support for escapes in phrases and comments. There are +limited support for escapes in phrases and comments. There are cases where it can get wrong; and =item * @@ -53,7 +55,7 @@ =over 4 -=item Mail::Address-E<gt>B<new>(PHRASE, ADDRESS, [ COMMENT ]) +=item Mail::Address-E<gt>B<new>( PHRASE, ADDRESS, [ COMMENT ] ) Create a new C<Mail::Address> object which represents an address with the elements given. In a message these 3 elements would be seen like: @@ -88,7 +90,7 @@ Return the comment part of the object -=item $obj-E<gt>B<format>([ADDRESSes]) +=item $obj-E<gt>B<format>( [ADDRESSes] ) Return a string representing the address in a suitable form to be placed on a C<To>, C<Cc>, or C<Bcc> line of a message. This method is called on diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Cap.pm new/MailTools-2.14/lib/Mail/Cap.pm --- old/MailTools-2.12/lib/Mail/Cap.pm 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Cap.pm 2014-11-21 17:12:50.000000000 +0100 @@ -1,10 +1,10 @@ -# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2014 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. +# Pod stripped from pm file by OODoc 2.01. package Mail::Cap; use vars '$VERSION'; -$VERSION = '2.12'; +$VERSION = '2.14'; use strict; @@ -71,23 +71,28 @@ while(<MAILCAP>) { next if /^\s*#/; # comment next if /^\s*$/; # blank line - $_ .= <MAILCAP> while s/\\\s*$//; # continuation line + $_ .= <MAILCAP> # continuation line + while s/(^|[^\\])((?:\\\\)*)\\\s*$/$1$2/; chomp; - s/\0//g; # ensure no NULs in the line - s/([^\\]);/$1\0/g; # make field separator NUL + s/\0//g; # ensure no NULs in the line + s/(^|[^\\]);/$1\0/g; # make field separator NUL + my ($type, $view, @parts) = split /\s*\0\s*/; - my @parts = split /\s*\0\s*/, $_; - my $type = shift @parts; $type .= "/*" if $type !~ m[/]; - - my $view = shift @parts; $view =~ s/\\;/;/g; + $view =~ s/\\\\/\\/g; my %field = (view => $view); foreach (@parts) { my($key, $val) = split /\s*\=\s*/, $_, 2; - $val =~ s/\\;/;/g if defined $val; - $field{$key} = defined $val ? $val : 1; + if(defined $val) + { $val =~ s/\\;/;/g; + $val =~ s/\\\\/\\/g; + $field{$key} = $val; + } + else + { $field{$key} = 1; + } } if(my $test = $field{test}) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Cap.pod new/MailTools-2.14/lib/Mail/Cap.pod --- old/MailTools-2.12/lib/Mail/Cap.pod 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Cap.pod 2014-11-21 17:12:50.000000000 +0100 @@ -1,3 +1,5 @@ +=encoding utf8 + =head1 NAME Mail::Cap - Parse mailcap files @@ -71,7 +73,7 @@ =head2 Run commands -These methods invoke a suitable progam presenting or manipulating the +These methods invoke a suitable program presenting or manipulating the media object in the specified file. They all return C<1> if a command was found, and C<0> otherwise. You might test C<$?> for the outcome of the command. @@ -91,7 +93,7 @@ =head2 Command creator These methods return a string that is suitable for feeding to system() -in order to invoke a suitable progam presenting or manipulating the +in order to invoke a suitable program presenting or manipulating the media object in the specified file. It will return C<undef> if no suitable specification exists. @@ -118,7 +120,7 @@ =item $obj-E<gt>B<field>(TYPE, FIELD) Returns the specified field for the type. Returns undef if no -specification exsists. +specification exists. =item $obj-E<gt>B<nametemplate>(TYPE) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Field/AddrList.pm new/MailTools-2.14/lib/Mail/Field/AddrList.pm --- old/MailTools-2.12/lib/Mail/Field/AddrList.pm 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Field/AddrList.pm 2014-11-21 17:12:50.000000000 +0100 @@ -1,12 +1,12 @@ -# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2014 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. +# Pod stripped from pm file by OODoc 2.01. use strict; package Mail::Field::AddrList; use vars '$VERSION'; -$VERSION = '2.12'; +$VERSION = '2.14'; use base 'Mail::Field'; @@ -51,7 +51,7 @@ # someone forgot to implement a method to return the Mail::Address -# objects. Added in 2.00; a pitty that the name addresses() is already +# objects. Added in 2.00; a pity that the name addresses() is already # given :( That one should have been named emails() sub addr_list { values %{shift->{AddrList}} } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Field/AddrList.pod new/MailTools-2.14/lib/Mail/Field/AddrList.pod --- old/MailTools-2.12/lib/Mail/Field/AddrList.pod 2012-12-21 12:19:06.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Field/AddrList.pod 2014-11-21 17:12:50.000000000 +0100 @@ -1,3 +1,5 @@ +=encoding utf8 + =head1 NAME Mail::Field::AddrList - object representation of e-mail address lists @@ -35,65 +37,77 @@ All the normally used features of the address field specification of RFC2822 are implemented, but some complex (and therefore hardly ever used) -constructs will not be inderstood. Use Mail::Message::Field::Full +constructs will not be understood. Use Mail::Message::Field::Full in MailBox if you need full RFC compliance. +Extends L<"DESCRIPTION" in Mail::Field|Mail::Field/"DESCRIPTION">. + =head1 METHODS +Extends L<"METHODS" in Mail::Field|Mail::Field/"METHODS">. + =head2 Constructors +Extends L<"Constructors" in Mail::Field|Mail::Field/"Constructors">. + =over 4 =item Mail::Field::AddrList-E<gt>B<combine>(FIELDS) -See L<Mail::Field/"Constructors"> +Inherited, see L<Mail::Field/"Constructors"> -=item Mail::Field::AddrList-E<gt>B<extract>(TAG, HEAD [, INDEX ]) +=item Mail::Field::AddrList-E<gt>B<extract>( TAG, HEAD [, INDEX ] ) -See L<Mail::Field/"Constructors"> +Inherited, see L<Mail::Field/"Constructors"> -=item Mail::Field::AddrList-E<gt>B<new>(TAG [, STRING | OPTIONS]) +=item Mail::Field::AddrList-E<gt>B<new>( TAG [, STRING | OPTIONS] ) -See L<Mail::Field/"Constructors"> +Inherited, see L<Mail::Field/"Constructors"> =back =head2 "Fake" constructors +Extends L<""Fake" constructors" in Mail::Field|Mail::Field/""Fake" constructors">. + =over 4 =item $obj-E<gt>B<create>(OPTIONS) -See L<Mail::Field/""Fake" constructors"> +Inherited, see L<Mail::Field/""Fake" constructors"> =item $obj-E<gt>B<parse>() -See L<Mail::Field/""Fake" constructors"> +Inherited, see L<Mail::Field/""Fake" constructors"> =back =head2 Accessors +Extends L<"Accessors" in Mail::Field|Mail::Field/"Accessors">. + =over 4 =item $obj-E<gt>B<set>(OPTIONS) -See L<Mail::Field/"Accessors"> +Inherited, see L<Mail::Field/"Accessors"> =item $obj-E<gt>B<stringify>() -See L<Mail::Field/"Accessors"> +Inherited, see L<Mail::Field/"Accessors"> =item $obj-E<gt>B<tag>() =item Mail::Field::AddrList-E<gt>B<tag>() -See L<Mail::Field/"Accessors"> +Inherited, see L<Mail::Field/"Accessors"> =back =head2 Smart accessors +Extends L<"Smart accessors" in Mail::Field|Mail::Field/"Smart accessors">. + =over 4 =item $obj-E<gt>B<addr_list>() @@ -113,12 +127,16 @@ Add/replace an EMAIL address to the field. -=item $obj-E<gt>B<text>([STRING]) +=item $obj-E<gt>B<text>( [STRING] ) -See L<Mail::Field/"Smart accessors"> +Inherited, see L<Mail::Field/"Smart accessors"> =back +=head1 DETAILS + +Extends L<"DETAILS" in Mail::Field|Mail::Field/"DETAILS">. + =head1 DIAGNOSTICS =over 4 @@ -126,7 +144,7 @@ =item Error: Undefined subroutine <method> called Mail::Field objects use autoloading to compile new functionality. -Apparently, the mehod called is not implemented for the specific +Apparently, the method called is not implemented for the specific class of the field object. =back diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Field/Date.pm new/MailTools-2.14/lib/Mail/Field/Date.pm --- old/MailTools-2.12/lib/Mail/Field/Date.pm 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Field/Date.pm 2014-11-21 17:12:50.000000000 +0100 @@ -1,12 +1,12 @@ -# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2014 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. +# Pod stripped from pm file by OODoc 2.01. use strict; package Mail::Field::Date; use vars '$VERSION'; -$VERSION = '2.12'; +$VERSION = '2.14'; use base 'Mail::Field'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Field/Date.pod new/MailTools-2.14/lib/Mail/Field/Date.pod --- old/MailTools-2.12/lib/Mail/Field/Date.pod 2012-12-21 12:19:06.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Field/Date.pod 2014-11-21 17:12:50.000000000 +0100 @@ -1,3 +1,5 @@ +=encoding utf8 + =head1 NAME Mail::Field::Date - a date header field @@ -16,42 +18,52 @@ Represents one "Date" header field. +Extends L<"DESCRIPTION" in Mail::Field|Mail::Field/"DESCRIPTION">. + =head1 METHODS +Extends L<"METHODS" in Mail::Field|Mail::Field/"METHODS">. + =head2 Constructors +Extends L<"Constructors" in Mail::Field|Mail::Field/"Constructors">. + =over 4 =item Mail::Field::Date-E<gt>B<combine>(FIELDS) -See L<Mail::Field/"Constructors"> +Inherited, see L<Mail::Field/"Constructors"> -=item Mail::Field::Date-E<gt>B<extract>(TAG, HEAD [, INDEX ]) +=item Mail::Field::Date-E<gt>B<extract>( TAG, HEAD [, INDEX ] ) -See L<Mail::Field/"Constructors"> +Inherited, see L<Mail::Field/"Constructors"> -=item Mail::Field::Date-E<gt>B<new>(TAG [, STRING | OPTIONS]) +=item Mail::Field::Date-E<gt>B<new>( TAG [, STRING | OPTIONS] ) -See L<Mail::Field/"Constructors"> +Inherited, see L<Mail::Field/"Constructors"> =back =head2 "Fake" constructors +Extends L<""Fake" constructors" in Mail::Field|Mail::Field/""Fake" constructors">. + =over 4 =item $obj-E<gt>B<create>(OPTIONS) -See L<Mail::Field/""Fake" constructors"> +Inherited, see L<Mail::Field/""Fake" constructors"> =item $obj-E<gt>B<parse>() -See L<Mail::Field/""Fake" constructors"> +Inherited, see L<Mail::Field/""Fake" constructors"> =back =head2 Accessors +Extends L<"Accessors" in Mail::Field|Mail::Field/"Accessors">. + =over 4 =item $obj-E<gt>B<set>(OPTIONS) @@ -72,30 +84,36 @@ =item $obj-E<gt>B<stringify>() -See L<Mail::Field/"Accessors"> +Inherited, see L<Mail::Field/"Accessors"> =item $obj-E<gt>B<tag>() =item Mail::Field::Date-E<gt>B<tag>() -See L<Mail::Field/"Accessors"> +Inherited, see L<Mail::Field/"Accessors"> =back =head2 Smart accessors +Extends L<"Smart accessors" in Mail::Field|Mail::Field/"Smart accessors">. + =over 4 -=item $obj-E<gt>B<text>([STRING]) +=item $obj-E<gt>B<text>( [STRING] ) -See L<Mail::Field/"Smart accessors"> +Inherited, see L<Mail::Field/"Smart accessors"> -=item $obj-E<gt>B<time>([TIME]) +=item $obj-E<gt>B<time>( [TIME] ) Query (or change) the TIME (as stored in the field) in seconds. =back +=head1 DETAILS + +Extends L<"DETAILS" in Mail::Field|Mail::Field/"DETAILS">. + =head1 DIAGNOSTICS =over 4 @@ -103,7 +121,7 @@ =item Error: Undefined subroutine <method> called Mail::Field objects use autoloading to compile new functionality. -Apparently, the mehod called is not implemented for the specific +Apparently, the method called is not implemented for the specific class of the field object. =back diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Field/Generic.pm new/MailTools-2.14/lib/Mail/Field/Generic.pm --- old/MailTools-2.12/lib/Mail/Field/Generic.pm 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Field/Generic.pm 2014-11-21 17:12:50.000000000 +0100 @@ -1,10 +1,10 @@ -# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2014 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. +# Pod stripped from pm file by OODoc 2.01. package Mail::Field::Generic; use vars '$VERSION'; -$VERSION = '2.12'; +$VERSION = '2.14'; use Carp; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Field/Generic.pod new/MailTools-2.14/lib/Mail/Field/Generic.pod --- old/MailTools-2.12/lib/Mail/Field/Generic.pod 2012-12-21 12:19:06.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Field/Generic.pod 2014-11-21 17:12:50.000000000 +0100 @@ -1,3 +1,5 @@ +=encoding utf8 + =head1 NAME Mail::Field::Generic - implementation for inspecific fields @@ -20,28 +22,36 @@ etc., where the field holds only a string of no particular importance/format. +Extends L<"DESCRIPTION" in Mail::Field|Mail::Field/"DESCRIPTION">. + =head1 METHODS +Extends L<"METHODS" in Mail::Field|Mail::Field/"METHODS">. + =head2 Constructors +Extends L<"Constructors" in Mail::Field|Mail::Field/"Constructors">. + =over 4 =item Mail::Field::Generic-E<gt>B<combine>(FIELDS) -See L<Mail::Field/"Constructors"> +Inherited, see L<Mail::Field/"Constructors"> -=item Mail::Field::Generic-E<gt>B<extract>(TAG, HEAD [, INDEX ]) +=item Mail::Field::Generic-E<gt>B<extract>( TAG, HEAD [, INDEX ] ) -See L<Mail::Field/"Constructors"> +Inherited, see L<Mail::Field/"Constructors"> -=item Mail::Field::Generic-E<gt>B<new>(TAG [, STRING | OPTIONS]) +=item Mail::Field::Generic-E<gt>B<new>( TAG [, STRING | OPTIONS] ) -See L<Mail::Field/"Constructors"> +Inherited, see L<Mail::Field/"Constructors"> =back =head2 "Fake" constructors +Extends L<""Fake" constructors" in Mail::Field|Mail::Field/""Fake" constructors">. + =over 4 =item $obj-E<gt>B<create>(OPTIONS) @@ -55,7 +65,7 @@ =back -=item $obj-E<gt>B<parse>([STRING]) +=item $obj-E<gt>B<parse>( [STRING] ) Set the new text, which is empty when no STRING is provided. @@ -63,34 +73,42 @@ =head2 Accessors +Extends L<"Accessors" in Mail::Field|Mail::Field/"Accessors">. + =over 4 =item $obj-E<gt>B<set>(OPTIONS) -See L<Mail::Field/"Accessors"> +Inherited, see L<Mail::Field/"Accessors"> =item $obj-E<gt>B<stringify>() -See L<Mail::Field/"Accessors"> +Inherited, see L<Mail::Field/"Accessors"> =item $obj-E<gt>B<tag>() =item Mail::Field::Generic-E<gt>B<tag>() -See L<Mail::Field/"Accessors"> +Inherited, see L<Mail::Field/"Accessors"> =back =head2 Smart accessors +Extends L<"Smart accessors" in Mail::Field|Mail::Field/"Smart accessors">. + =over 4 -=item $obj-E<gt>B<text>([STRING]) +=item $obj-E<gt>B<text>( [STRING] ) -See L<Mail::Field/"Smart accessors"> +Inherited, see L<Mail::Field/"Smart accessors"> =back +=head1 DETAILS + +Extends L<"DETAILS" in Mail::Field|Mail::Field/"DETAILS">. + =head1 DIAGNOSTICS =over 4 @@ -98,7 +116,7 @@ =item Error: Undefined subroutine <method> called Mail::Field objects use autoloading to compile new functionality. -Apparently, the mehod called is not implemented for the specific +Apparently, the method called is not implemented for the specific class of the field object. =back diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Field.pm new/MailTools-2.14/lib/Mail/Field.pm --- old/MailTools-2.12/lib/Mail/Field.pm 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Field.pm 2014-11-21 17:12:50.000000000 +0100 @@ -1,10 +1,10 @@ -# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2014 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. +# Pod stripped from pm file by OODoc 2.01. package Mail::Field; use vars '$VERSION'; -$VERSION = '2.12'; +$VERSION = '2.14'; use Carp; @@ -29,7 +29,7 @@ } sub _require_dir -{ my($class,$dir,$dir_sep) = @_; +{ my($class, $dir, $dir_sep) = @_; local *DIR; opendir DIR, $dir @@ -47,6 +47,9 @@ else { $p =~ s/-/_/go; eval "require ${class}::$p"; + + # added next warning in 2.14, may be ignored for ancient code + warn $@ if $@; } } closedir DIR; @@ -62,11 +65,12 @@ return; } - my($dir,$dir_sep); - foreach my $f (keys %INC) + my ($dir, $dir_sep); + foreach my $f (grep defined $INC{$_}, keys %INC) { next if $f !~ /^Mail(\W)Field\W/i; $dir_sep = $1; - $dir = ($INC{$f} =~ /(.*Mail\W+Field)/i)[0] . $dir_sep; +# $dir = ($INC{$f} =~ /(.*Mail\W+Field)/i)[0] . $dir_sep; + ($dir = $INC{$f}) =~ s/(Mail\W+Field).*/$1$dir_sep/; last; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Field.pod new/MailTools-2.14/lib/Mail/Field.pod --- old/MailTools-2.12/lib/Mail/Field.pod 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Field.pod 2014-11-21 17:12:50.000000000 +0100 @@ -1,3 +1,5 @@ +=encoding utf8 + =head1 NAME Mail::Field - Base class for manipulation of mail header fields @@ -43,7 +45,7 @@ Take a LIST of C<Mail::Field> objects (which should all be of the same sub-class) and create a new object in that same class. -=item Mail::Field-E<gt>B<extract>(TAG, HEAD [, INDEX ]) +=item Mail::Field-E<gt>B<extract>( TAG, HEAD [, INDEX ] ) Takes as arguments the tag name, a C<Mail::Head> object and optionally an index. @@ -52,13 +54,13 @@ from the C<Mail::Head> object and create a new C<Mail::Field> based object. I<undef> will be returned in the field does not exist. -If the index argument is not given the the result depends on the context +If the index argument is not given the result depends on the context in which C<extract> is called. If called in a scalar context the result will be as if C<extract> was called with an index value of zero. If called in an array context then all tags will be retrieved and a list of C<Mail::Field> objects will be returned. -=item Mail::Field-E<gt>B<new>(TAG [, STRING | OPTIONS]) +=item Mail::Field-E<gt>B<new>( TAG [, STRING | OPTIONS] ) Create an object in the class which defines the field specified by the TAG argument. @@ -98,7 +100,7 @@ =item Mail::Field-E<gt>B<tag>() Return the tag (in the correct case) for this item. Well, actually any -casing is OK, because the field tags are treated case-insentitive; however +casing is OK, because the field tags are treated case-insensitive; however people have some preferences. =back @@ -107,7 +109,7 @@ =over 4 -=item $obj-E<gt>B<text>([STRING]) +=item $obj-E<gt>B<text>( [STRING] ) Without arguments, the field is returned as L<stringify()|Mail::Field/"Accessors"> does. Otherwise, the STRING is parsed with L<parse()|Mail::Field/""Fake" constructors"> to replace the object's content. @@ -163,7 +165,7 @@ =item Error: Undefined subroutine <method> called Mail::Field objects use autoloading to compile new functionality. -Apparently, the mehod called is not implemented for the specific +Apparently, the method called is not implemented for the specific class of the field object. =back diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Filter.pm new/MailTools-2.14/lib/Mail/Filter.pm --- old/MailTools-2.12/lib/Mail/Filter.pm 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Filter.pm 2014-11-21 17:12:50.000000000 +0100 @@ -1,11 +1,11 @@ -# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2014 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. +# Pod stripped from pm file by OODoc 2.01. use strict; package Mail::Filter; use vars '$VERSION'; -$VERSION = '2.12'; +$VERSION = '2.14'; use Carp; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Filter.pod new/MailTools-2.14/lib/Mail/Filter.pod --- old/MailTools-2.12/lib/Mail/Filter.pod 2012-12-21 12:19:06.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Filter.pod 2014-11-21 17:12:50.000000000 +0100 @@ -1,3 +1,5 @@ +=encoding utf8 + =head1 NAME Mail::Filter - Filter mail through multiple subroutines @@ -36,7 +38,7 @@ =over 4 -=item Mail::Filter-E<gt>B<new>([FILTER [, ... ]]) +=item Mail::Filter-E<gt>B<new>( [FILTER [, ... ]] ) Create a new C<Mail::Filter> object with the given filter subroutines. Each filter may be either a code reference or the name of a method to call @@ -48,9 +50,9 @@ =over 4 -=item $obj-E<gt>B<add>(FILTER [, FILTER ...]) +=item $obj-E<gt>B<add>( FILTER [, FILTER ...] ) -Add the given filters to the end of the fliter list. +Add the given filters to the end of the filter list. =back diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Header.pm new/MailTools-2.14/lib/Mail/Header.pm --- old/MailTools-2.12/lib/Mail/Header.pm 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Header.pm 2014-11-21 17:12:50.000000000 +0100 @@ -1,10 +1,10 @@ -# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2014 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. +# Pod stripped from pm file by OODoc 2.01. package Mail::Header; use vars '$VERSION'; -$VERSION = '2.12'; +$VERSION = '2.14'; use strict; @@ -117,11 +117,11 @@ $_[0] =~ s/\A(\S+)\n\s*(?=\S)/$1 /so; } -# Tags are case-insensitive, but there is a (slightly) prefered construction +# Tags are case-insensitive, but there is a (slightly) preferred construction # being all characters are lowercase except the first of each word. Also # if the word is an `acronym' then all characters are uppercase. We decide # a word is an acronym if it does not contain a vowel. -# In general, this change of capitization is a bad idea, but it is in +# In general, this change of capitalization is a bad idea, but it is in # the code for ages, and therefore probably crucial for existing # applications. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Header.pod new/MailTools-2.14/lib/Mail/Header.pod --- old/MailTools-2.12/lib/Mail/Header.pod 2012-12-21 12:19:06.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Header.pod 2014-11-21 17:12:50.000000000 +0100 @@ -1,3 +1,5 @@ +=encoding utf8 + =head1 NAME Mail::Header - manipulate MIME headers @@ -37,9 +39,9 @@ Create a duplicate of the current object. -=item $obj-E<gt>B<new>([ARG], [OPTIONS]) +=item $obj-E<gt>B<new>( [ARG], [OPTIONS] ) -=item Mail::Header-E<gt>B<new>([ARG], [OPTIONS]) +=item Mail::Header-E<gt>B<new>( [ARG], [OPTIONS] ) ARG may be either a file descriptor (reference to a GLOB) or a reference to an array. If given the new object will be @@ -91,14 +93,14 @@ object. C<extract> B<will modify> this array. Returns the object that the method was called on. -=item $obj-E<gt>B<header>([ARRAY]) +=item $obj-E<gt>B<header>( [ARRAY] ) C<header> does multiple operations. First it will extract a header from the ARRAY, if given. It will then reformat the header (if reformatting is permitted), and finally return a reference to an array which contains the header in a printable form. -=item $obj-E<gt>B<header_hashref>([HASH]) +=item $obj-E<gt>B<header_hashref>( [HASH] ) As L<header()|Mail::Header/""Fake" constructors">, but it will eventually set headers from a hash reference, and it will return the headers as a hash reference. @@ -120,7 +122,7 @@ =over 4 -=item $obj-E<gt>B<fold_length>([TAG], [LENGTH]) +=item $obj-E<gt>B<fold_length>( [TAG], [LENGTH] ) Set the default fold length for all tags or just one. With no arguments the default fold length is returned. With two arguments it sets the fold @@ -139,7 +141,7 @@ C<ERROR> - invoke an error (call die), C<COERCE> - rename them as Mail-From and C<KEEP> - keep them. -=item $obj-E<gt>B<modify>([VALUE]) +=item $obj-E<gt>B<modify>( [VALUE] ) If C<VALUE> is I<false> then C<Mail::Header> will not do any automatic reformatting of the headers, other than to ensure that the line @@ -151,9 +153,9 @@ =over 4 -=item $obj-E<gt>B<add>(TAG, LINE [, INDEX]) +=item $obj-E<gt>B<add>( TAG, LINE [, INDEX] ) -Add a new line to the header. If TAG is C<undef> the the tag will be +Add a new line to the header. If TAG is C<undef> the tag will be extracted from the beginning of the given line. If INDEX is given, the new line will be inserted into the header at the given point, otherwise the new line will be appended to the end of the header. @@ -166,7 +168,7 @@ Remove any header line that, other than the tag, only contains whitespace -=item $obj-E<gt>B<combine>(TAG [, WITH]) +=item $obj-E<gt>B<combine>( TAG [, WITH] ) Combine all instances of TAG into one. The lines will be joined together WITH, or a single space if not given. The new @@ -177,18 +179,18 @@ Returns the number of times the given atg appears in the header -=item $obj-E<gt>B<delete>(TAG [, INDEX ]) +=item $obj-E<gt>B<delete>( TAG [, INDEX ] ) Delete a tag from the header. If an INDEX id is given, then the Nth instance of the tag will be removed. If no INDEX is given, then all instances of tag will be removed. -=item $obj-E<gt>B<fold>([LENGTH]) +=item $obj-E<gt>B<fold>( [LENGTH] ) Fold the header. If LENGTH is not given, then C<Mail::Header> uses the following rules to determine what length to fold a line. -=item $obj-E<gt>B<get>(TAG [, INDEX]) +=item $obj-E<gt>B<get>( TAG [, INDEX] ) Get the text from a line. If an INDEX is given, then the text of the Nth instance will be returned. If it is not given the return value depends on the @@ -198,14 +200,14 @@ The lines are unfolded, but still terminated with a new-line (see C<chomp>) -=item $obj-E<gt>B<print>([FILEHANDLE]) +=item $obj-E<gt>B<print>( [FILEHANDLE] ) Print the header to the given file descriptor, or C<STDOUT> if no file descriptor is given. -=item $obj-E<gt>B<replace>(TAG, LINE [, INDEX ]) +=item $obj-E<gt>B<replace>( TAG, LINE [, INDEX ] ) -Replace a line in the header. If TAG is C<undef> the the tag will be +Replace a line in the header. If TAG is C<undef> the tag will be extracted from the beginning of the given line. If INDEX is given the new line will replace the Nth instance of that tag, otherwise the first instance of the tag is replaced. If the tag does not appear in the @@ -216,7 +218,7 @@ Returns an array of all the tags that exist in the header. Each tag will only appear in the list once. The order of the tags is not specified. -=item $obj-E<gt>B<unfold>([TAG]) +=item $obj-E<gt>B<unfold>( [TAG] ) Unfold all instances of the given tag so that they do not spread across multiple lines. If C<TAG> is not given then all lines are unfolded. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Internet.pm new/MailTools-2.14/lib/Mail/Internet.pm --- old/MailTools-2.12/lib/Mail/Internet.pm 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Internet.pm 2014-11-21 17:12:50.000000000 +0100 @@ -1,10 +1,10 @@ -# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2014 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. +# Pod stripped from pm file by OODoc 2.01. package Mail::Internet; use vars '$VERSION'; -$VERSION = '2.12'; +$VERSION = '2.14'; use strict; # use warnings? probably breaking too much code @@ -339,8 +339,11 @@ if(defined $mid) { $inreply = $mid; - $inreply .= ' from ' . $name if defined $name; - $inreply .= ' on ' . $date if defined $date; + my @comment; + push @comment, "from $name" if defined $name; + push @comment, "on $date" if defined $date; + local $" = ' '; + $inreply .= " (@comment)" if @comment; } elsif(defined $name) { $inreply = $name . "'s message"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Internet.pod new/MailTools-2.14/lib/Mail/Internet.pod --- old/MailTools-2.12/lib/Mail/Internet.pod 2012-12-21 12:19:06.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Internet.pod 2014-11-21 17:12:50.000000000 +0100 @@ -1,3 +1,5 @@ +=encoding utf8 + =head1 NAME Mail::Internet - manipulate email messages @@ -35,9 +37,9 @@ Extract header and body from an ARRAY of message lines. Requires an object already created with L<new()|Mail::Internet/"Constructors">, which contents will get overwritten. -=item $obj-E<gt>B<new>([ARG], [OPTIONS]) +=item $obj-E<gt>B<new>( [ARG], [OPTIONS] ) -=item Mail::Internet-E<gt>B<new>([ARG], [OPTIONS]) +=item Mail::Internet-E<gt>B<new>( [ARG], [OPTIONS] ) ARG is optional and may be either a file descriptor (reference to a GLOB) or a reference to an array. If given the new object will be @@ -79,7 +81,7 @@ =over 4 -=item $obj-E<gt>B<body>([BODY]) +=item $obj-E<gt>B<body>( [BODY] ) Returns the body of the message. This is a reference to an array. Each entry in the array represents a single line in the message. @@ -100,7 +102,7 @@ =over 4 -=item $obj-E<gt>B<as_mbox_string>([ALREADY_ESCAPED]) +=item $obj-E<gt>B<as_mbox_string>( [ALREADY_ESCAPED] ) Returns the message as a string in mbox format. C<ALREADY_ESCAPED>, if given and true, indicates that L<escape_from()|Mail::Internet/"High-level functionality"> has already been called on @@ -110,7 +112,7 @@ Returns the message as a single string. -=item $obj-E<gt>B<print>([FILEHANDLE]) +=item $obj-E<gt>B<print>( [FILEHANDLE] ) Print the header, body or whole message to file descriptor I<FILEHANDLE>. I<$fd> should be a reference to a GLOB. If I<FILEHANDLE> is not given the @@ -120,11 +122,11 @@ $mail->print( \*STDOUT ); # Print message to STDOUT -=item $obj-E<gt>B<print_body>([FILEHANDLE]) +=item $obj-E<gt>B<print_body>( [FILEHANDLE] ) Print only the body to the FILEHANDLE (default STDOUT). -=item $obj-E<gt>B<print_header>([FILEHANDLE]) +=item $obj-E<gt>B<print_header>( [FILEHANDLE] ) Print only the header to the FILEHANDLE (default STDOUT). @@ -143,30 +145,30 @@ L<Mail::Header::add()|Mail::Header/"Processing"> is called. All fields are added after existing fields. The last addition is returned. -=item $obj-E<gt>B<combine>(TAG, [WITH]) +=item $obj-E<gt>B<combine>( TAG, [WITH] ) See L<Mail::Header::combine()|Mail::Header/"Processing">. -=item $obj-E<gt>B<delete>(TAG, [TAGs]) +=item $obj-E<gt>B<delete>( TAG, [TAGs] ) Delete all fields with the name TAG. L<Mail::Header::delete()|Mail::Header/"Processing"> is doing the work. -=item $obj-E<gt>B<fold>([LENGTH]) +=item $obj-E<gt>B<fold>( [LENGTH] ) See L<Mail::Header::fold()|Mail::Header/"Processing">. -=item $obj-E<gt>B<fold_length>([TAG], [LENGTH]) +=item $obj-E<gt>B<fold_length>( [TAG], [LENGTH] ) See L<Mail::Header::fold_length()|Mail::Header/"Accessors">. -=item $obj-E<gt>B<get>(TAG, [TAGs]) +=item $obj-E<gt>B<get>( TAG, [TAGs] ) In LIST context, all fields with the name TAG are returned. In SCALAR context, only the first field which matches the earliest TAG is returned. L<Mail::Header::get()|Mail::Header/"Processing"> is called to collect the data. -=item $obj-E<gt>B<header>([ARRAY-of-LINES]) +=item $obj-E<gt>B<header>( [ARRAY-of-LINES] ) See L<Mail::Header::header()|Mail::Header/""Fake" constructors">. @@ -183,7 +185,7 @@ =over 4 -=item $obj-E<gt>B<remove_sig>([NLINES]) +=item $obj-E<gt>B<remove_sig>( [NLINES] ) Attempts to remove a users signature from the body of a message. It does this by looking for a line equal to C<'-- '> within the last C<NLINES> of the @@ -225,10 +227,10 @@ It can cause problems with some applications if a message contains a line starting with C<`From '>, in particular when attempting to split a folder. -This method inserts a leading C<`>'> on anyline that matches the regular +This method inserts a leading C<`>'> on any line that matches the regular expression C</^>*From/> -=item $obj-E<gt>B<nntppost>([OPTIONS]) +=item $obj-E<gt>B<nntppost>( [OPTIONS] ) Post an article via NNTP. Requires Net::NNTP to be installed. @@ -291,12 +293,12 @@ =back -=item $obj-E<gt>B<send>([TYPE, [ARGS...]]) +=item $obj-E<gt>B<send>( [TYPE, [ARGS...]] ) Send a Mail::Internet message using L<Mail::Mailer|Mail::Mailer>. TYPE and ARGS are passed on to L<Mail::Mailer::new()|Mail::Mailer/"Constructors">. -=item $obj-E<gt>B<smtpsend>([OPTIONS]) +=item $obj-E<gt>B<smtpsend>( [OPTIONS] ) Send a Mail::Internet message using direct SMTP. to the given ADDRESSES, each can be either a string or a reference to a list of email diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Mailer/qmail.pm new/MailTools-2.14/lib/Mail/Mailer/qmail.pm --- old/MailTools-2.12/lib/Mail/Mailer/qmail.pm 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Mailer/qmail.pm 2014-11-21 17:12:50.000000000 +0100 @@ -1,13 +1,13 @@ -# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2014 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. +# Pod stripped from pm file by OODoc 2.01. use strict; package Mail::Mailer::qmail; use vars '$VERSION'; -$VERSION = '2.12'; +$VERSION = '2.14'; use base 'Mail::Mailer::rfc822'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Mailer/rfc822.pm new/MailTools-2.14/lib/Mail/Mailer/rfc822.pm --- old/MailTools-2.12/lib/Mail/Mailer/rfc822.pm 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Mailer/rfc822.pm 2014-11-21 17:12:50.000000000 +0100 @@ -1,12 +1,12 @@ -# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2014 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. +# Pod stripped from pm file by OODoc 2.01. use strict; package Mail::Mailer::rfc822; use vars '$VERSION'; -$VERSION = '2.12'; +$VERSION = '2.14'; use base 'Mail::Mailer'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Mailer/sendmail.pm new/MailTools-2.14/lib/Mail/Mailer/sendmail.pm --- old/MailTools-2.12/lib/Mail/Mailer/sendmail.pm 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Mailer/sendmail.pm 2014-11-21 17:12:50.000000000 +0100 @@ -1,12 +1,12 @@ -# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2014 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. +# Pod stripped from pm file by OODoc 2.01. use strict; package Mail::Mailer::sendmail; use vars '$VERSION'; -$VERSION = '2.12'; +$VERSION = '2.14'; use base 'Mail::Mailer::rfc822'; @@ -18,7 +18,7 @@ # Rumor: some sendmails may ignore or break with -t (AIX?) # Chopped out the @$to arguments, because -t means # they are sent in the body, and postfix complains if they - # are also given on comand line. + # are also given on command line. exec( $exe, '-t', @$args ); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Mailer/smtp.pm new/MailTools-2.14/lib/Mail/Mailer/smtp.pm --- old/MailTools-2.12/lib/Mail/Mailer/smtp.pm 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Mailer/smtp.pm 2014-11-21 17:12:50.000000000 +0100 @@ -1,12 +1,12 @@ -# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2014 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. +# Pod stripped from pm file by OODoc 2.01. use strict; package Mail::Mailer::smtp; use vars '$VERSION'; -$VERSION = '2.12'; +$VERSION = '2.14'; use base 'Mail::Mailer::rfc822'; @@ -85,7 +85,7 @@ package Mail::Mailer::smtp::pipe; use vars '$VERSION'; -$VERSION = '2.12'; +$VERSION = '2.14'; sub TIEHANDLE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Mailer/smtps.pm new/MailTools-2.14/lib/Mail/Mailer/smtps.pm --- old/MailTools-2.12/lib/Mail/Mailer/smtps.pm 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Mailer/smtps.pm 2014-11-21 17:12:50.000000000 +0100 @@ -1,14 +1,14 @@ -# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2014 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. +# Pod stripped from pm file by OODoc 2.01. # Based on smtp.pm, adapted by Maciej Żenczykowski use strict; package Mail::Mailer::smtps; use vars '$VERSION'; -$VERSION = '2.12'; +$VERSION = '2.14'; use base 'Mail::Mailer::rfc822'; @@ -90,7 +90,7 @@ package Mail::Mailer::smtps::pipe; use vars '$VERSION'; -$VERSION = '2.12'; +$VERSION = '2.14'; sub TIEHANDLE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Mailer/testfile.pm new/MailTools-2.14/lib/Mail/Mailer/testfile.pm --- old/MailTools-2.12/lib/Mail/Mailer/testfile.pm 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Mailer/testfile.pm 2014-11-21 17:12:50.000000000 +0100 @@ -1,12 +1,12 @@ -# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2014 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. +# Pod stripped from pm file by OODoc 2.01. use strict; package Mail::Mailer::testfile; use vars '$VERSION'; -$VERSION = '2.12'; +$VERSION = '2.14'; use base 'Mail::Mailer::rfc822'; @@ -36,7 +36,7 @@ package Mail::Mailer::testfile::pipe; use vars '$VERSION'; -$VERSION = '2.12'; +$VERSION = '2.14'; sub TIEHANDLE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Mailer.pm new/MailTools-2.14/lib/Mail/Mailer.pm --- old/MailTools-2.12/lib/Mail/Mailer.pm 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Mailer.pm 2014-11-21 17:12:50.000000000 +0100 @@ -1,12 +1,12 @@ -# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2014 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. +# Pod stripped from pm file by OODoc 2.01. use strict; package Mail::Mailer; use vars '$VERSION'; -$VERSION = '2.12'; +$VERSION = '2.14'; use base 'IO::Handle'; @@ -37,7 +37,7 @@ our $MailerType; our $MailerBinary; -# does this really need to be done? or should a default mailer be specfied? +# does this really need to be done? or should a default mailer be specified? $Mailers{sendmail} = 'sendmail' if $^O eq 'os2' && ! is_exe $Mailers{sendmail}; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Mailer.pod new/MailTools-2.14/lib/Mail/Mailer.pod --- old/MailTools-2.12/lib/Mail/Mailer.pod 2012-12-21 12:19:06.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Mailer.pod 2014-11-21 17:12:50.000000000 +0100 @@ -1,3 +1,5 @@ +=encoding utf8 + =head1 NAME Mail::Mailer - Simple interface to electronic mailing mechanisms diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Send.pm new/MailTools-2.14/lib/Mail/Send.pm --- old/MailTools-2.12/lib/Mail/Send.pm 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Send.pm 2014-11-21 17:12:50.000000000 +0100 @@ -1,12 +1,12 @@ -# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2014 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. +# Pod stripped from pm file by OODoc 2.01. use strict; package Mail::Send; use vars '$VERSION'; -$VERSION = '2.12'; +$VERSION = '2.14'; use Carp; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Send.pod new/MailTools-2.14/lib/Mail/Send.pod --- old/MailTools-2.12/lib/Mail/Send.pod 2012-12-21 12:19:06.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Send.pod 2014-11-21 17:12:50.000000000 +0100 @@ -1,3 +1,5 @@ +=encoding utf8 + =head1 NAME Mail::Send - Simple electronic mail interface diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Util.pm new/MailTools-2.14/lib/Mail/Util.pm --- old/MailTools-2.12/lib/Mail/Util.pm 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Util.pm 2014-11-21 17:12:50.000000000 +0100 @@ -1,12 +1,12 @@ -# Copyrights 1995-2012 by [Mark Overmeer <[email protected]>]. +# Copyrights 1995-2014 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. +# Pod stripped from pm file by OODoc 2.01. use strict; package Mail::Util; use vars '$VERSION'; -$VERSION = '2.12'; +$VERSION = '2.14'; use base 'Exporter'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/lib/Mail/Util.pod new/MailTools-2.14/lib/Mail/Util.pod --- old/MailTools-2.12/lib/Mail/Util.pod 2012-12-21 12:19:07.000000000 +0100 +++ new/MailTools-2.14/lib/Mail/Util.pod 2014-11-21 17:12:50.000000000 +0100 @@ -1,3 +1,5 @@ +=encoding utf8 + =head1 NAME Mail::Util - mail utility functions @@ -21,7 +23,7 @@ =over 4 -=item B<mailaddress>([ADDRESS]) +=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. @@ -49,12 +51,12 @@ =item B<maildomain>() -Attempt to determine the current uers mail domain string via the following +Attempt to determine the current user mail domain string via the following methods =over 4 -=item * Look for the MAILDOMAIN enviroment variable, which can be set from outside the program. This is by far the best way to configure the domain. +=item * Look for the MAILDOMAIN environment variable, which can be set from outside the program. This is by far the best way to configure the domain. =item * Look for a sendmail.cf file and extract DH parameter @@ -82,7 +84,7 @@ =item B<read_mbox>(FILE) Read FILE, a binmail mailbox file, and return a list of references. -Each reference is a reference to an array containg one message. +Each reference is a reference to an array containing one message. WARNING: This method does not quote lines which accidentally also start with the diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MailTools-2.12/t/mailcap.t new/MailTools-2.14/t/mailcap.t --- old/MailTools-2.12/t/mailcap.t 2012-12-21 12:19:05.000000000 +0100 +++ new/MailTools-2.14/t/mailcap.t 2014-11-21 17:12:50.000000000 +0100 @@ -1,13 +1,16 @@ -#!/usr/local/bin/perl -w +#!/usr/bin/env perl require Mail::Cap; +use warnings; +use strict; -print "1..5\n"; +use Test::More tests => 6; # First we create a mailcap file to test -$mcfile = "mailcap-$$"; +my $mcfile = "mailcap-$$"; -open(MAILCAP, ">$mcfile") || die "Can't create $mcfile: $!"; +open MAILCAP, '>', $mcfile + or die "Can't create $mcfile: $!"; print MAILCAP <<EOT; @@ -23,35 +26,38 @@ local;cat %s;print=lpr %{foo} %{bar} %t %s +video/example; echo \\"; none + EOT -close(MAILCAP); +close MAILCAP; # OK, lets parse it -$mc = new Mail::Cap $mcfile; +my $mc = Mail::Cap->new($mcfile); unlink($mcfile); # no more need for this file -$desc = $mc->description('image/gif'); +my $desc = $mc->description('image/gif'); print "GIF desc: $desc\n"; -print "ok 1\n" if $desc eq "Simple image format"; - -$cmd1 = $mc->viewCmd('text/plain; charset=iso-8859-1', 'file.txt'); -$cmd2 = $mc->viewCmd('text/plain; charset=iso-8859-2', 'file.txt'); -$cmd3 = $mc->viewCmd('image/gif', 'gisle.gif'); -$cmd4 = $mc->printCmd('local; foo=bar', 'myfile'); +is($desc, "Simple image format"); +my $cmd1 = $mc->viewCmd('text/plain; charset=iso-8859-1', 'file.txt'); print "$cmd1\n"; +is($cmd1, "cat file.txt"); -print "ok 2\n" if $cmd1 eq "cat file.txt"; - +my $cmd2 = $mc->viewCmd('text/plain; charset=iso-8859-2', 'file.txt'); print "$cmd2\n"; -print "ok 3\n" if $cmd2 eq "smartcat file.txt"; +is($cmd2, "smartcat file.txt"); +my $cmd3 = $mc->viewCmd('image/gif', 'gisle.gif'); print "$cmd3\n"; -print "ok 4\n" if $cmd3 eq qq(xv gisle.gif ; echo "Showing image gisle.gif"); +is($cmd3, qq(xv gisle.gif ; echo "Showing image gisle.gif")); +my $cmd4 = $mc->printCmd('local; foo=bar', 'myfile'); print "$cmd4\n"; -print "ok 5\n" if $cmd4 =~ /^lpr\s+bar\s+local\s+myfile$/; +like($cmd4, qr/^lpr\s+bar\s+local\s+myfile$/); +my $cmd5 = $mc->viewCmd('video/example', 'myfile'); +print "$cmd5\n"; +is($cmd5, 'echo \"'); #$mc->dump; ++++++ cpanspec.yml ++++++ --- #description_paragraphs: 3 #no_testing: broken upstream #sources: # - source1 # - source2 #preamble: |- # BuildRequires: gcc-c++ #post_prep: |- # hunspell=`pkg-config --libs hunspell | sed -e 's,-l,,; s, *,,g'` # sed -i -e "s,hunspell-X,$hunspell," t/00-prereq.t Makefile.PL #post_install: |- # sed on %{name}.files #license: SUSE-NonFree #skip_noarch: 1 #custom_build: - #./Build build flags=%{?_smp_mflags} --myflag
