Hello community, here is the log from the commit of package perl-MIME-tools for openSUSE:Factory checked in at 2015-10-03 20:30:22 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-MIME-tools (Old) and /work/SRC/openSUSE:Factory/.perl-MIME-tools.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-MIME-tools" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-MIME-tools/perl-MIME-tools.changes 2015-05-02 16:16:53.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-MIME-tools.new/perl-MIME-tools.changes 2015-10-03 20:30:42.000000000 +0200 @@ -1,0 +2,15 @@ +Fri Oct 2 09:14:28 UTC 2015 - [email protected] + +- updated to 5.507 + see /usr/share/doc/packages/perl-MIME-tools/ChangeLog + + 5.507 2015-09-30 Dianne Skoll <[email protected]> + + * VERSION 5.507 RELEASED + + * Fix parsing bug + https://rt.cpan.org/Public/Bug/Display.html?id=105455 + + * Fix typo that broke MIME::Body::incore->open() on Perl 5.20 + +------------------------------------------------------------------- Old: ---- MIME-tools-5.506.tar.gz New: ---- MIME-tools-5.507.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-MIME-tools.spec ++++++ --- /var/tmp/diff_new_pack.Kn1PlW/_old 2015-10-03 20:30:43.000000000 +0200 +++ /var/tmp/diff_new_pack.Kn1PlW/_new 2015-10-03 20:30:43.000000000 +0200 @@ -17,7 +17,7 @@ Name: perl-MIME-tools -Version: 5.506 +Version: 5.507 Release: 0 %define cpan_name MIME-tools Summary: Tools to manipulate MIME messages ++++++ MIME-tools-5.506.tar.gz -> MIME-tools-5.507.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/ChangeLog new/MIME-tools-5.507/ChangeLog --- old/MIME-tools-5.506/ChangeLog 2015-04-22 19:29:39.000000000 +0200 +++ new/MIME-tools-5.507/ChangeLog 2015-09-30 15:04:00.000000000 +0200 @@ -1,3 +1,12 @@ +5.507 2015-09-30 Dianne Skoll <[email protected]> + + * VERSION 5.507 RELEASED + + * Fix parsing bug + https://rt.cpan.org/Public/Bug/Display.html?id=105455 + + * Fix typo that broke MIME::Body::incore->open() on Perl 5.20 + 5.506 2015-04-22 Dianne Skoll <[email protected]> * VERSION 5.506 RELEASED diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/META.yml new/MIME-tools-5.507/META.yml --- old/MIME-tools-5.506/META.yml 2015-04-22 19:30:05.000000000 +0200 +++ new/MIME-tools-5.507/META.yml 2015-09-30 15:10:38.000000000 +0200 @@ -10,7 +10,7 @@ ExtUtils::MakeMaker: 6.59 distribution_type: module dynamic_config: 1 -generated_by: 'Module::Install version 1.06' +generated_by: 'Module::Install version 1.14' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -38,4 +38,4 @@ perl: 5.8.0 resources: license: http://dev.perl.org/licenses/ -version: 5.506 +version: '5.507' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/inc/Module/Install/Base.pm new/MIME-tools-5.507/inc/Module/Install/Base.pm --- old/MIME-tools-5.506/inc/Module/Install/Base.pm 2015-04-22 19:30:05.000000000 +0200 +++ new/MIME-tools-5.507/inc/Module/Install/Base.pm 2015-09-30 15:10:37.000000000 +0200 @@ -4,7 +4,7 @@ use strict 'vars'; use vars qw{$VERSION}; BEGIN { - $VERSION = '1.06'; + $VERSION = '1.14'; } # Suspend handler for "redefined" warnings diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/inc/Module/Install/Can.pm new/MIME-tools-5.507/inc/Module/Install/Can.pm --- old/MIME-tools-5.506/inc/Module/Install/Can.pm 2015-04-22 19:30:05.000000000 +0200 +++ new/MIME-tools-5.507/inc/Module/Install/Can.pm 2015-09-30 15:10:37.000000000 +0200 @@ -8,7 +8,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.06'; + $VERSION = '1.14'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/inc/Module/Install/Fetch.pm new/MIME-tools-5.507/inc/Module/Install/Fetch.pm --- old/MIME-tools-5.506/inc/Module/Install/Fetch.pm 2015-04-22 19:30:05.000000000 +0200 +++ new/MIME-tools-5.507/inc/Module/Install/Fetch.pm 2015-09-30 15:10:37.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.06'; + $VERSION = '1.14'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/inc/Module/Install/Makefile.pm new/MIME-tools-5.507/inc/Module/Install/Makefile.pm --- old/MIME-tools-5.506/inc/Module/Install/Makefile.pm 2015-04-22 19:30:05.000000000 +0200 +++ new/MIME-tools-5.507/inc/Module/Install/Makefile.pm 2015-09-30 15:10:37.000000000 +0200 @@ -8,7 +8,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.06'; + $VERSION = '1.14'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -133,7 +133,7 @@ return $args; } -# For mm args that take multiple space-seperated args, +# For mm args that take multiple space-separated args, # append an argument to the current list. sub makemaker_append { my $self = shift; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/inc/Module/Install/Metadata.pm new/MIME-tools-5.507/inc/Module/Install/Metadata.pm --- old/MIME-tools-5.506/inc/Module/Install/Metadata.pm 2015-04-22 19:30:05.000000000 +0200 +++ new/MIME-tools-5.507/inc/Module/Install/Metadata.pm 2015-09-30 15:10:37.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.06'; + $VERSION = '1.14'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -347,7 +347,7 @@ ^ \s* package \s* ([\w:]+) - \s* ; + [\s|;]* /ixms ) { my ($name, $module_name) = ($1, $1); @@ -705,7 +705,7 @@ my @yaml = Parse::CPAN::Meta::LoadFile('META.yml'); my $meta = $yaml[0]; - # Overwrite the non-configure dependency hashs + # Overwrite the non-configure dependency hashes delete $meta->{requires}; delete $meta->{build_requires}; delete $meta->{recommends}; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/inc/Module/Install/Win32.pm new/MIME-tools-5.507/inc/Module/Install/Win32.pm --- old/MIME-tools-5.506/inc/Module/Install/Win32.pm 2015-04-22 19:30:05.000000000 +0200 +++ new/MIME-tools-5.507/inc/Module/Install/Win32.pm 2015-09-30 15:10:37.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.06'; + $VERSION = '1.14'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/inc/Module/Install/WriteAll.pm new/MIME-tools-5.507/inc/Module/Install/WriteAll.pm --- old/MIME-tools-5.506/inc/Module/Install/WriteAll.pm 2015-04-22 19:30:05.000000000 +0200 +++ new/MIME-tools-5.507/inc/Module/Install/WriteAll.pm 2015-09-30 15:10:37.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.06'; + $VERSION = '1.14'; @ISA = qw{Module::Install::Base}; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/inc/Module/Install.pm new/MIME-tools-5.507/inc/Module/Install.pm --- old/MIME-tools-5.506/inc/Module/Install.pm 2015-04-22 19:30:04.000000000 +0200 +++ new/MIME-tools-5.507/inc/Module/Install.pm 2015-09-30 15:10:37.000000000 +0200 @@ -17,7 +17,7 @@ # 3. The ./inc/ version of Module::Install loads # } -use 5.005; +use 5.006; use strict 'vars'; use Cwd (); use File::Find (); @@ -31,7 +31,7 @@ # This is not enforced yet, but will be some time in the next few # releases once we can make sure it won't clash with custom # Module::Install extensions. - $VERSION = '1.06'; + $VERSION = '1.14'; # Storage for the pseudo-singleton $MAIN = undef; @@ -156,10 +156,10 @@ sub autoload { my $self = shift; my $who = $self->_caller; - my $cwd = Cwd::cwd(); + my $cwd = Cwd::getcwd(); my $sym = "${who}::AUTOLOAD"; $sym->{$cwd} = sub { - my $pwd = Cwd::cwd(); + my $pwd = Cwd::getcwd(); if ( my $code = $sym->{$pwd} ) { # Delegate back to parent dirs goto &$code unless $cwd eq $pwd; @@ -239,7 +239,7 @@ # ignore the prefix on extension modules built from top level. my $base_path = Cwd::abs_path($FindBin::Bin); - unless ( Cwd::abs_path(Cwd::cwd()) eq $base_path ) { + unless ( Cwd::abs_path(Cwd::getcwd()) eq $base_path ) { delete $args{prefix}; } return $args{_self} if $args{_self}; @@ -338,7 +338,7 @@ if ( $subpath eq lc($subpath) || $subpath eq uc($subpath) ) { my $content = Module::Install::_read($subpath . '.pm'); my $in_pod = 0; - foreach ( split //, $content ) { + foreach ( split /\n/, $content ) { $in_pod = 1 if /^=\w/; $in_pod = 0 if /^=cut/; next if ($in_pod || /^=cut/); # skip pod text @@ -378,6 +378,7 @@ sub _read { local *FH; open( FH, '<', $_[0] ) or die "open($_[0]): $!"; + binmode FH; my $string = do { local $/; <FH> }; close FH or die "close($_[0]): $!"; return $string; @@ -386,6 +387,7 @@ sub _read { local *FH; open( FH, "< $_[0]" ) or die "open($_[0]): $!"; + binmode FH; my $string = do { local $/; <FH> }; close FH or die "close($_[0]): $!"; return $string; @@ -416,6 +418,7 @@ sub _write { local *FH; open( FH, '>', $_[0] ) or die "open($_[0]): $!"; + binmode FH; foreach ( 1 .. $#_ ) { print FH $_[$_] or die "print($_[0]): $!"; } @@ -425,6 +428,7 @@ sub _write { local *FH; open( FH, "> $_[0]" ) or die "open($_[0]): $!"; + binmode FH; foreach ( 1 .. $#_ ) { print FH $_[$_] or die "print($_[0]): $!"; } @@ -434,7 +438,7 @@ # _version is for processing module versions (eg, 1.03_05) not # Perl versions (eg, 5.8.1). -sub _version ($) { +sub _version { my $s = shift || 0; my $d =()= $s =~ /(\.)/g; if ( $d >= 2 ) { @@ -450,12 +454,12 @@ return $l + 0; } -sub _cmp ($$) { +sub _cmp { _version($_[1]) <=> _version($_[2]); } # Cloned from Params::Util::_CLASS -sub _CLASS ($) { +sub _CLASS { ( defined $_[0] and diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/lib/MIME/Body.pm new/MIME-tools-5.507/lib/MIME/Body.pm --- old/MIME-tools-5.506/lib/MIME/Body.pm 2015-04-22 19:29:07.000000000 +0200 +++ new/MIME-tools-5.507/lib/MIME/Body.pm 2015-09-30 15:09:19.000000000 +0200 @@ -141,7 +141,7 @@ use IO::File; ### The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.506"; +$VERSION = "5.507"; #------------------------------ @@ -522,7 +522,7 @@ die "bad mode: $mode"; } - return IO::File->new(\($self->{MBS_Data}), $mode); + return IO::File->new(\ $self->{MBS_Data}, $mode); } @@ -659,7 +659,7 @@ =head1 AUTHOR Eryq (F<[email protected]>), ZeeGee Software Inc (F<http://www.zeegee.com>). -Dianne Skoll ([email protected]) http://www.roaringpenguin.com +David F. Skoll ([email protected]) http://www.roaringpenguin.com All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/lib/MIME/Decoder/Base64.pm new/MIME-tools-5.507/lib/MIME/Decoder/Base64.pm --- old/MIME-tools-5.506/lib/MIME/Decoder/Base64.pm 2015-04-22 19:29:07.000000000 +0200 +++ new/MIME-tools-5.507/lib/MIME/Decoder/Base64.pm 2015-09-30 15:04:00.000000000 +0200 @@ -60,7 +60,7 @@ @ISA = qw(MIME::Decoder); ### The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.506"; +$VERSION = "5.507"; ### How many bytes to encode at a time (must be a multiple of 3, and ### less than (76 * 0.75)! diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/lib/MIME/Decoder/BinHex.pm new/MIME-tools-5.507/lib/MIME/Decoder/BinHex.pm --- old/MIME-tools-5.506/lib/MIME/Decoder/BinHex.pm 2015-04-22 19:29:07.000000000 +0200 +++ new/MIME-tools-5.507/lib/MIME/Decoder/BinHex.pm 2015-09-30 15:04:00.000000000 +0200 @@ -47,7 +47,7 @@ @ISA = qw(MIME::Decoder); # The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.506"; +$VERSION = "5.507"; #------------------------------ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/lib/MIME/Decoder/Binary.pm new/MIME-tools-5.507/lib/MIME/Decoder/Binary.pm --- old/MIME-tools-5.506/lib/MIME/Decoder/Binary.pm 2015-04-22 19:29:07.000000000 +0200 +++ new/MIME-tools-5.507/lib/MIME/Decoder/Binary.pm 2015-09-30 15:04:00.000000000 +0200 @@ -47,7 +47,7 @@ @ISA = qw(MIME::Decoder); ### The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.506"; +$VERSION = "5.507"; ### Buffer length: my $BUFLEN = 8192; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/lib/MIME/Decoder/Gzip64.pm new/MIME-tools-5.507/lib/MIME/Decoder/Gzip64.pm --- old/MIME-tools-5.506/lib/MIME/Decoder/Gzip64.pm 2015-04-22 19:29:07.000000000 +0200 +++ new/MIME-tools-5.507/lib/MIME/Decoder/Gzip64.pm 2015-09-30 15:04:00.000000000 +0200 @@ -61,7 +61,7 @@ @ISA = qw(MIME::Decoder::Base64); # The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.506"; +$VERSION = "5.507"; # How to compress stdin to stdout: $GZIP = "gzip -c"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/lib/MIME/Decoder/NBit.pm new/MIME-tools-5.507/lib/MIME/Decoder/NBit.pm --- old/MIME-tools-5.506/lib/MIME/Decoder/NBit.pm 2015-04-22 19:29:07.000000000 +0200 +++ new/MIME-tools-5.507/lib/MIME/Decoder/NBit.pm 2015-09-30 15:04:00.000000000 +0200 @@ -98,7 +98,7 @@ @ISA = qw(MIME::Decoder); ### The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.506"; +$VERSION = "5.507"; ### How many bytes to decode at a time? my $DecodeChunkLength = 8 * 1024; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/lib/MIME/Decoder/QuotedPrint.pm new/MIME-tools-5.507/lib/MIME/Decoder/QuotedPrint.pm --- old/MIME-tools-5.506/lib/MIME/Decoder/QuotedPrint.pm 2015-04-22 19:29:07.000000000 +0200 +++ new/MIME-tools-5.507/lib/MIME/Decoder/QuotedPrint.pm 2015-09-30 15:04:00.000000000 +0200 @@ -58,7 +58,7 @@ @ISA = qw(MIME::Decoder); # The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.506"; +$VERSION = "5.507"; #------------------------------ # If we have MIME::QuotedPrint 3.03 or later, use the three-argument diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/lib/MIME/Decoder/UU.pm new/MIME-tools-5.507/lib/MIME/Decoder/UU.pm --- old/MIME-tools-5.506/lib/MIME/Decoder/UU.pm 2015-04-22 19:29:07.000000000 +0200 +++ new/MIME-tools-5.507/lib/MIME/Decoder/UU.pm 2015-09-30 15:04:00.000000000 +0200 @@ -48,7 +48,7 @@ @ISA = qw(MIME::Decoder); # The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.506"; +$VERSION = "5.507"; #------------------------------ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/lib/MIME/Decoder.pm new/MIME-tools-5.507/lib/MIME/Decoder.pm --- old/MIME-tools-5.506/lib/MIME/Decoder.pm 2015-04-22 19:29:07.000000000 +0200 +++ new/MIME-tools-5.507/lib/MIME/Decoder.pm 2015-09-30 15:04:00.000000000 +0200 @@ -126,7 +126,7 @@ ); ### The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.506"; +$VERSION = "5.507"; ### Me: my $ME = 'MIME::Decoder'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/lib/MIME/Entity.pm new/MIME-tools-5.507/lib/MIME/Entity.pm --- old/MIME-tools-5.506/lib/MIME/Entity.pm 2015-04-22 19:29:06.000000000 +0200 +++ new/MIME-tools-5.507/lib/MIME/Entity.pm 2015-09-30 15:04:00.000000000 +0200 @@ -245,7 +245,7 @@ #------------------------------ ### The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.506"; +$VERSION = "5.507"; ### Boundary counter: my $BCount = 0; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/lib/MIME/Field/ConTraEnc.pm new/MIME-tools-5.507/lib/MIME/Field/ConTraEnc.pm --- old/MIME-tools-5.506/lib/MIME/Field/ConTraEnc.pm 2015-04-22 19:29:07.000000000 +0200 +++ new/MIME-tools-5.507/lib/MIME/Field/ConTraEnc.pm 2015-09-30 15:04:00.000000000 +0200 @@ -47,7 +47,7 @@ @ISA = qw(MIME::Field::ParamVal); # The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.506"; +$VERSION = "5.507"; # Install it: bless([])->register('Content-transfer-encoding'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/lib/MIME/Field/ContDisp.pm new/MIME-tools-5.507/lib/MIME/Field/ContDisp.pm --- old/MIME-tools-5.506/lib/MIME/Field/ContDisp.pm 2015-04-22 19:29:07.000000000 +0200 +++ new/MIME-tools-5.507/lib/MIME/Field/ContDisp.pm 2015-09-30 15:04:00.000000000 +0200 @@ -48,7 +48,7 @@ @ISA = qw(MIME::Field::ParamVal); # The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.506"; +$VERSION = "5.507"; # Install it: bless([])->register('Content-disposition'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/lib/MIME/Field/ContType.pm new/MIME-tools-5.507/lib/MIME/Field/ContType.pm --- old/MIME-tools-5.506/lib/MIME/Field/ContType.pm 2015-04-22 19:29:07.000000000 +0200 +++ new/MIME-tools-5.507/lib/MIME/Field/ContType.pm 2015-09-30 15:04:00.000000000 +0200 @@ -63,7 +63,7 @@ @ISA = qw(MIME::Field::ParamVal); # The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.506"; +$VERSION = "5.507"; # Install it: bless([])->register('Content-type'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/lib/MIME/Field/ParamVal.pm new/MIME-tools-5.507/lib/MIME/Field/ParamVal.pm --- old/MIME-tools-5.506/lib/MIME/Field/ParamVal.pm 2015-04-22 19:29:07.000000000 +0200 +++ new/MIME-tools-5.507/lib/MIME/Field/ParamVal.pm 2015-09-30 15:04:00.000000000 +0200 @@ -80,7 +80,7 @@ #------------------------------ # The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.506"; +$VERSION = "5.507"; #------------------------------ @@ -238,11 +238,11 @@ # Extract subsequent parameters. # No, we can't just "split" on semicolons: they're legal in quoted strings! while (1) { # keep chopping away until done... - $raw =~ m/\G$SPCZ(\;$SPCZ)+/og or last; # skip leading separator + $raw =~ m/\G[^;]*(\;$SPCZ)+/og or last; # skip leading separator $raw =~ m/\G($PARAMNAME)\s*=\s*/og or last; # give up if not a param $param = lc($1); - $raw =~ m/\G(?:$QUOTED_STRING|($ENCTOKEN)|($BADTOKEN)|($TOKEN))/g or last; # give up if no value" - my ($qstr, $enctoken, $badtoken, $token) = ($1, $2, $3, $4, $5); + $raw =~ m/\G(?:$QUOTED_STRING|($ENCTOKEN)|($TOKEN)|($BADTOKEN))/g or last; # give up if no value" + my ($qstr, $enctoken, $token, $badtoken) = ($1, $2, $3, $4, $5); if (defined($qstr)) { # unescape $qstr =~ s/\\(.)/$1/g; @@ -251,6 +251,13 @@ # Strip leading/trailing whitespace from badtoken $badtoken =~ s/^\s+//; $badtoken =~ s/\s+\z//; + + # Only keep token parameters in badtoken; + # cut it off at the first non-token char. CPAN RT #105455 + $badtoken =~ /^($TOKEN)*/; + $badtoken = $1; + # Cut it off at first whitespace too + $badtoken =~ s/\s.*//; } $val = defined($qstr) ? $qstr : (defined($enctoken) ? $enctoken : diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/lib/MIME/Head.pm new/MIME-tools-5.507/lib/MIME/Head.pm --- old/MIME-tools-5.506/lib/MIME/Head.pm 2015-04-22 19:29:07.000000000 +0200 +++ new/MIME-tools-5.507/lib/MIME/Head.pm 2015-09-30 15:04:00.000000000 +0200 @@ -138,7 +138,7 @@ #------------------------------ ### The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.506"; +$VERSION = "5.507"; ### Sanity (we put this test after our own version, for CPAN::): use Mail::Header 1.06 (); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/lib/MIME/Parser.pm new/MIME-tools-5.507/lib/MIME/Parser.pm --- old/MIME-tools-5.506/lib/MIME/Parser.pm 2015-04-22 19:29:07.000000000 +0200 +++ new/MIME-tools-5.507/lib/MIME/Parser.pm 2015-09-30 15:04:00.000000000 +0200 @@ -153,7 +153,7 @@ #------------------------------ ### The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.506"; +$VERSION = "5.507"; ### How to catenate: $CAT = '/bin/cat'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/lib/MIME/Tools.pm new/MIME-tools-5.507/lib/MIME/Tools.pm --- old/MIME-tools-5.506/lib/MIME/Tools.pm 2015-04-22 19:29:03.000000000 +0200 +++ new/MIME-tools-5.507/lib/MIME/Tools.pm 2015-09-30 15:04:00.000000000 +0200 @@ -28,7 +28,7 @@ Exporter::export_ok_tags('config', 'msgs', 'msgtypes', 'utils'); # The TOOLKIT version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.506"; +$VERSION = "5.507"; # Configuration (do NOT alter this directly)... # All legal CONFIG vars *must* be in here, even if only to be set to undef: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/lib/MIME/Words.pm new/MIME-tools-5.507/lib/MIME/Words.pm --- old/MIME-tools-5.506/lib/MIME/Words.pm 2015-04-22 19:29:07.000000000 +0200 +++ new/MIME-tools-5.507/lib/MIME/Words.pm 2015-09-30 15:04:00.000000000 +0200 @@ -94,7 +94,7 @@ #------------------------------ ### The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.506"; +$VERSION = "5.507"; ### Nonprintables (controls + x7F + 8bit): my $NONPRINT = "\\x00-\\x1F\\x7F-\\xFF"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.506/t/ParamVal.t new/MIME-tools-5.507/t/ParamVal.t --- old/MIME-tools-5.506/t/ParamVal.t 2011-01-31 23:44:46.000000000 +0100 +++ new/MIME-tools-5.507/t/ParamVal.t 2015-06-25 16:24:18.000000000 +0200 @@ -1,6 +1,6 @@ use strict; use warnings; -use Test::More tests => 5; +use Test::More tests => 13; use MIME::Field::ContType; use MIME::WordDecoder; @@ -34,3 +34,29 @@ is( encode('utf8', $wd->decode($field->param('answer'))), $expected, 'answer param was unpacked correctly'); } + +# Test for CPAN RT #105455 +{ + my $header = 'attachment; filename=wookie.zip size=3; junk=cabbage'; + + my $field = Mail::Field->new('Content-type'); + $field->parse( $header ); + is( $field->param('_'), 'attachment', 'Got body of header'); + is ($field->param('filename'), 'wookie.zip', 'Got correct filename'); + is ($field->param('junk'), 'cabbage', 'Got correct final param'); + + $header = 'attachment; filename="wookie.zip size=3"'; + + $field = Mail::Field->new('Content-type'); + $field->parse( $header ); + is( $field->param('_'), 'attachment', 'Got body of header'); + is ($field->param('filename'), 'wookie.zip size=3', 'Got correct filename'); + + $header = 'attachment; filename="wookie.zip;x=1"; (crap); (more_crap) adhesive=glueme'; + + $field = Mail::Field->new('Content-type'); + $field->parse( $header ); + is( $field->param('_'), 'attachment', 'Got body of header'); + is ($field->param('filename'), 'wookie.zip;x=1', 'Got correct filename'); + is ($field->param('adhesive'), 'glueme', 'Got correct final parameter'); +}
