Hello community, here is the log from the commit of package perl-MIME-tools for openSUSE:Factory checked in at 2015-05-02 16:16:51 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 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 2013-06-18 10:34:34.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-MIME-tools.new/perl-MIME-tools.changes 2015-05-02 16:16:53.000000000 +0200 @@ -1,0 +2,6 @@ +Sat May 2 09:30:38 UTC 2015 - [email protected] + +- updated to 5.506 + see /usr/share/doc/packages/perl-MIME-tools/ChangeLog + +------------------------------------------------------------------- Old: ---- MIME-tools-5.504.tar.gz New: ---- MIME-tools-5.506.tar.gz cpanspec.yml ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-MIME-tools.spec ++++++ --- /var/tmp/diff_new_pack.4tANmU/_old 2015-05-02 16:16:54.000000000 +0200 +++ /var/tmp/diff_new_pack.4tANmU/_new 2015-05-02 16:16:54.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-MIME-tools # -# 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,14 +17,15 @@ Name: perl-MIME-tools -Version: 5.504 +Version: 5.506 Release: 0 %define cpan_name MIME-tools Summary: Tools to manipulate MIME messages License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/MIME-tools/ -Source: MIME-tools-5.504.tar.gz +Source0: http://www.cpan.org/authors/id/D/DS/DSKOLL/%{cpan_name}-%{version}.tar.gz +Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl @@ -34,34 +35,6 @@ BuildRequires: perl(Mail::Header) >= 1.01 BuildRequires: perl(Mail::Internet) >= 1.0203 BuildRequires: perl(Test::Deep) -#BuildRequires: perl(Convert::BinHex) -#BuildRequires: perl(Globby) -#BuildRequires: perl(inc::Module::Install) -#BuildRequires: perl(JSON) -#BuildRequires: perl(LWP::Simple) -#BuildRequires: perl(MIME::Body) -#BuildRequires: perl(MIME::Decoder) -#BuildRequires: perl(MIME::Decoder::Base64) -#BuildRequires: perl(MIME::Decoder::Gzip64) -#BuildRequires: perl(MIME::Decoder::QuotedPrint) -#BuildRequires: perl(MIME::Entity) -#BuildRequires: perl(MIME::Field::ContDisp) -#BuildRequires: perl(MIME::Field::ConTraEnc) -#BuildRequires: perl(MIME::Field::ContType) -#BuildRequires: perl(MIME::Field::ParamVal) -#BuildRequires: perl(MIME::Head) -#BuildRequires: perl(MIME::Parser) -#BuildRequires: perl(MIME::Parser::Filer) -#BuildRequires: perl(MIME::Parser::Reader) -#BuildRequires: perl(MIME::Parser::Results) -#BuildRequires: perl(MIME::Tools) -#BuildRequires: perl(MIME::WordDecoder) -#BuildRequires: perl(MIME::Words) -#BuildRequires: perl(Module::Build) -#BuildRequires: perl(Module::Install::Base) -#BuildRequires: perl(Parse::CPAN::Meta) -#BuildRequires: perl(Test::Kwalitee) -#BuildRequires: perl(YAML::Tiny) Requires: perl(File::Temp) >= 0.18 Requires: perl(Mail::Field) >= 1.05 Requires: perl(Mail::Header) >= 1.01 ++++++ MIME-tools-5.504.tar.gz -> MIME-tools-5.506.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/ChangeLog new/MIME-tools-5.506/ChangeLog --- old/MIME-tools-5.504/ChangeLog 2013-01-30 21:33:24.000000000 +0100 +++ new/MIME-tools-5.506/ChangeLog 2015-04-22 19:29:39.000000000 +0200 @@ -1,4 +1,29 @@ -5.504 2013-01-30 David F. Skoll <[email protected]> +5.506 2015-04-22 Dianne Skoll <[email protected]> + + * VERSION 5.506 RELEASED + + * Update maintainer's name to "Dianne Skoll" + +5.505 2013-11-14 Dianne Skoll <[email protected]> + + * VERSION 5.505 RELEASED + + * Fix documentation typos. + https://rt.cpan.org/Public/Bug/Display.html?id=80473 + + * Fix broken test. + https://rt.cpan.org/Public/Bug/Display.html?id=84668 + + * Don't run Kwalitee tests unless author or release tests are enabled. + https://rt.cpan.org/Public/Bug/Display.html?id=87094 + + * Fix many documentation typos. + https://rt.cpan.org/Public/Bug/Display.html?id=87783 + + * Fix bug in header parsing that would fail to parse a header like: + Content-Type: ; name="malware.zip" + +5.504 2013-01-30 Dianne Skoll <[email protected]> * VERSION 5.504 RELEASED @@ -13,7 +38,7 @@ break multibyte-encodings (eg, utf-8) https://rt.cpan.org/Public/Bug/Display.html?id=5462 -5.503 2012-06-08 David F. Skoll <[email protected]> +5.503 2012-06-08 Dianne Skoll <[email protected]> * VERSION 5.503 RELEASED @@ -47,7 +72,7 @@ * Add "use strict" everywhere https://rt.cpan.org/Public/Bug/Display.html?id=77582 -5.502 2011-03-08 David F. Skoll <[email protected]> +5.502 2011-03-08 Dianne Skoll <[email protected]> * VERSION 5.502 RELEASED @@ -62,7 +87,7 @@ * Fix unit test failure on Win32: (https://rt.cpan.org/Ticket/Display.html?id=66286) -5.501 2011-02-17 David F. Skoll <[email protected]> +5.501 2011-02-17 Dianne Skoll <[email protected]> * VERSION 5.501 RELEASED @@ -168,7 +193,7 @@ never worked and has been removed, any code calling tmp_recycling() should stop attempting to use the feature. -5.424 2007-11-07 David Skoll <[email protected]> +5.424 2007-11-07 Dianne Skoll <[email protected]> * VERSION 5.424 RELEASED @@ -248,14 +273,14 @@ * (cleanup) Merge all changelog information from README and MIME/Tools.pm into ChangeLog -5.420 2006-03-17 David F. Skoll <[email protected]> +5.420 2006-03-17 Dianne Skoll <[email protected]> * VERSION 5.420 RELEASED * Fix regression introduced in 5.419 -- quoted-printable encoding would sometimes fail on "textual" MIME parts. -5.419 2005-12-22 David F. Skoll <[email protected]> +5.419 2005-12-22 Dianne Skoll <[email protected]> * VERSION 5.419 RELEASED @@ -264,7 +289,7 @@ if you need the exact unmangled message source (for example, for GPG-signing.) Patch submitted by J�rn Reder. -5.418 2005-09-29 David F. Skoll <[email protected]> +5.418 2005-09-29 Dianne Skoll <[email protected]> * VERSION 5.418 RELEASED @@ -279,7 +304,7 @@ * MANIFEST: Remove some useless internal files from the manifest. They were never meant to be part of the actual distribution. -5.417 2005-01-20 David F. Skoll <[email protected]> +5.417 2005-01-20 Dianne Skoll <[email protected]> * VERSION 5.417 RELEASED @@ -291,7 +316,7 @@ parameters was buggy and caused decoding errors. This has been fixed. -5.416 2005-01-03 David F. Skoll <[email protected]> +5.416 2005-01-03 Dianne Skoll <[email protected]> * VERSION 5.416 RELEASED @@ -303,14 +328,14 @@ parameters. Apparently, not doing so can cause Perl to core dump on certain badly-formed messages. -5.415 2004-10-27 David F. Skoll <[email protected]> +5.415 2004-10-27 Dianne Skoll <[email protected]> * VERSION 5.415 RELEASED * Fixed parsing of parameter="" in headers, and fixed case where multipart boundary is "" -5.414 2004-10-06 David F. Skoll <[email protected]> +5.414 2004-10-06 Dianne Skoll <[email protected]> * VERSION 5.414 RELEASED @@ -320,14 +345,14 @@ * Check return values of I/O operations like open(), close(), etc. and die if they fail. Problem reported by Mark Martinec. -5.413 2004-09-15 David F. Skoll <[email protected]> +5.413 2004-09-15 Dianne Skoll <[email protected]> * VERSION 5.413 RELEASED * Fix some $VERSION = xxx assignments that were broken; make sure VERSION shows up as 5.413 everywhere. Sorry about that! -5.412 2004-09-09 David F. Skoll <[email protected]> +5.412 2004-09-09 Dianne Skoll <[email protected]> * VERSION 5.412 RELEASED @@ -337,7 +362,7 @@ * Filer.pm: Be much more strict in evil_filename, allowing only a set of known good characters. -2004-09-08 David F. Skoll <[email protected]> +2004-09-08 Dianne Skoll <[email protected]> * Skip BinHex decoding if prerequisite modules not installed. @@ -352,7 +377,7 @@ * Correct bad regexp test for "bad PDF" files. -2004-09-07 David F. Skoll <[email protected]> +2004-09-07 Dianne Skoll <[email protected]> * lib/MIME/Parser/Filer.pm (evil_filename): Make evil_filename more paranoid (Julian Field and Martin Blapp) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/MANIFEST new/MIME-tools-5.506/MANIFEST --- old/MIME-tools-5.504/MANIFEST 2013-01-30 21:34:12.000000000 +0100 +++ new/MIME-tools-5.506/MANIFEST 2013-11-14 16:23:53.000000000 +0100 @@ -1,5 +1,11 @@ -ChangeLog COPYING +ChangeLog +INSTALLING +MANIFEST +META.yml +Makefile.PL +README +examples/README examples/mimeabuse examples/mimedump examples/mimeencode @@ -10,7 +16,6 @@ examples/mimesend examples/mimesender examples/mimetour -examples/README inc/Module/Install.pm inc/Module/Install/Base.pm inc/Module/Install/Can.pm @@ -19,19 +24,18 @@ inc/Module/Install/Metadata.pm inc/Module/Install/Win32.pm inc/Module/Install/WriteAll.pm -INSTALLING lib/MIME/Body.pm lib/MIME/Decoder.pm lib/MIME/Decoder/Base64.pm -lib/MIME/Decoder/Binary.pm lib/MIME/Decoder/BinHex.pm +lib/MIME/Decoder/Binary.pm lib/MIME/Decoder/Gzip64.pm lib/MIME/Decoder/NBit.pm lib/MIME/Decoder/QuotedPrint.pm lib/MIME/Decoder/UU.pm lib/MIME/Entity.pm -lib/MIME/Field/ContDisp.pm lib/MIME/Field/ConTraEnc.pm +lib/MIME/Field/ContDisp.pm lib/MIME/Field/ContType.pm lib/MIME/Field/ParamVal.pm lib/MIME/Head.pm @@ -42,15 +46,10 @@ lib/MIME/Tools.pm lib/MIME/WordDecoder.pm lib/MIME/Words.pm -Makefile.PL -MANIFEST -META.yml -README t/02-kwalitee.t t/02-pod-coverage.t t/02-pod.t t/99-prepare.t -t/attachment-filename-encoding.t t/Body.t t/BodyPrint.t t/Decoder.t @@ -67,6 +66,10 @@ t/ParserPreamble.t t/Ref.t t/Smtpsend.t +t/WordDecoder.t +t/WordEncoder.t +t/Words.t +t/attachment-filename-encoding.t t/ticket-11901.t t/ticket-22684.t t/ticket-37139.t @@ -80,9 +83,6 @@ t/ticket-71041.t t/ticket-71677.t t/ticket-80433.t -t/WordDecoder.t -t/WordEncoder.t -t/Words.t testin/ak-0696.msg testin/andreas-1296.txt testin/andreas-1296.uu @@ -155,6 +155,7 @@ testmsgs/german.ref testmsgs/hdr-fakeout.msg testmsgs/hdr-fakeout.ref +testmsgs/malformed-content-type-zip.msg testmsgs/multi-2evil.msg testmsgs/multi-2evil.ref testmsgs/multi-2gifs.msg diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/META.yml new/MIME-tools-5.506/META.yml --- old/MIME-tools-5.504/META.yml 2013-01-30 21:34:29.000000000 +0100 +++ new/MIME-tools-5.506/META.yml 2015-04-22 19:30:05.000000000 +0200 @@ -1,15 +1,16 @@ --- abstract: 'Tools to manipulate MIME messages' author: - - "Eryq <[email protected]>, David F. Skoll <[email protected]>, Dave O'Neill <[email protected]>" + - "Eryq <[email protected]>, Dianne Skoll <[email protected]>, Dave O'Neill <[email protected]>" build_requires: - ExtUtils::MakeMaker: 6.42 + ExtUtils::MakeMaker: 6.59 Test::Deep: 0 Test::More: 0 configure_requires: - ExtUtils::MakeMaker: 6.42 + ExtUtils::MakeMaker: 6.59 distribution_type: module -generated_by: 'Module::Install version 1.00' +dynamic_config: 1 +generated_by: 'Module::Install version 1.06' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -37,4 +38,4 @@ perl: 5.8.0 resources: license: http://dev.perl.org/licenses/ -version: 5.504 +version: 5.506 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/Makefile.PL new/MIME-tools-5.506/Makefile.PL --- old/MIME-tools-5.504/Makefile.PL 2012-05-14 15:42:01.000000000 +0200 +++ new/MIME-tools-5.506/Makefile.PL 2015-04-22 19:28:38.000000000 +0200 @@ -5,7 +5,7 @@ name 'MIME-tools'; module_name 'MIME::Tools'; version_from 'lib/MIME/Tools.pm'; -author q{Eryq <[email protected]>, David F. Skoll <[email protected]>, Dave O'Neill <[email protected]>}; +author q{Eryq <[email protected]>, Dianne Skoll <[email protected]>, Dave O'Neill <[email protected]>}; abstract 'Tools to manipulate MIME messages'; license 'perl'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/README new/MIME-tools-5.506/README --- old/MIME-tools-5.504/README 2007-09-29 03:34:52.000000000 +0200 +++ new/MIME-tools-5.506/README 2015-04-22 19:28:38.000000000 +0200 @@ -642,7 +642,7 @@ TERMS AND CONDITIONS Eryq ([email protected]), ZeeGee Software Inc (http://www.zeegee.com). - David F. Skoll ([email protected]) http://www.roaringpenguin.com + Dianne Skoll ([email protected]) http://www.roaringpenguin.com Copyright (c) 1998, 1999 by ZeeGee Software Inc (www.zeegee.com). Copyright (c) 2004 by Roaring Penguin Software Inc (www.roaringpenguin.com) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/inc/Module/Install/Base.pm new/MIME-tools-5.506/inc/Module/Install/Base.pm --- old/MIME-tools-5.504/inc/Module/Install/Base.pm 2013-01-30 21:34:28.000000000 +0100 +++ new/MIME-tools-5.506/inc/Module/Install/Base.pm 2015-04-22 19:30:05.000000000 +0200 @@ -4,7 +4,7 @@ use strict 'vars'; use vars qw{$VERSION}; BEGIN { - $VERSION = '1.00'; + $VERSION = '1.06'; } # Suspend handler for "redefined" warnings diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/inc/Module/Install/Can.pm new/MIME-tools-5.506/inc/Module/Install/Can.pm --- old/MIME-tools-5.504/inc/Module/Install/Can.pm 2013-01-30 21:34:28.000000000 +0100 +++ new/MIME-tools-5.506/inc/Module/Install/Can.pm 2015-04-22 19:30:05.000000000 +0200 @@ -3,13 +3,12 @@ use strict; use Config (); -use File::Spec (); use ExtUtils::MakeMaker (); use Module::Install::Base (); use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.00'; + $VERSION = '1.06'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -29,7 +28,7 @@ eval { require $mod; $pkg->VERSION($ver || 0); 1 }; } -# check if we can run some command +# Check if we can run some command sub can_run { my ($self, $cmd) = @_; @@ -38,14 +37,88 @@ for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') { next if $dir eq ''; - my $abs = File::Spec->catfile($dir, $_[1]); + require File::Spec; + my $abs = File::Spec->catfile($dir, $cmd); return $abs if (-x $abs or $abs = MM->maybe_command($abs)); } return; } -# can we locate a (the) C compiler +# Can our C compiler environment build XS files +sub can_xs { + my $self = shift; + + # Ensure we have the CBuilder module + $self->configure_requires( 'ExtUtils::CBuilder' => 0.27 ); + + # Do we have the configure_requires checker? + local $@; + eval "require ExtUtils::CBuilder;"; + if ( $@ ) { + # They don't obey configure_requires, so it is + # someone old and delicate. Try to avoid hurting + # them by falling back to an older simpler test. + return $self->can_cc(); + } + + # Do we have a working C compiler + my $builder = ExtUtils::CBuilder->new( + quiet => 1, + ); + unless ( $builder->have_compiler ) { + # No working C compiler + return 0; + } + + # Write a C file representative of what XS becomes + require File::Temp; + my ( $FH, $tmpfile ) = File::Temp::tempfile( + "compilexs-XXXXX", + SUFFIX => '.c', + ); + binmode $FH; + print $FH <<'END_C'; +#include "EXTERN.h" +#include "perl.h" +#include "XSUB.h" + +int main(int argc, char **argv) { + return 0; +} + +int boot_sanexs() { + return 1; +} + +END_C + close $FH; + + # Can the C compiler access the same headers XS does + my @libs = (); + my $object = undef; + eval { + local $^W = 0; + $object = $builder->compile( + source => $tmpfile, + ); + @libs = $builder->link( + objects => $object, + module_name => 'sanexs', + ); + }; + my $result = $@ ? 0 : 1; + + # Clean up all the build files + foreach ( $tmpfile, $object, @libs ) { + next unless defined $_; + 1 while unlink; + } + + return $result; +} + +# Can we locate a (the) C compiler sub can_cc { my $self = shift; my @chunks = split(/ /, $Config::Config{cc}) or return; @@ -78,4 +151,4 @@ __END__ -#line 156 +#line 236 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/inc/Module/Install/Fetch.pm new/MIME-tools-5.506/inc/Module/Install/Fetch.pm --- old/MIME-tools-5.504/inc/Module/Install/Fetch.pm 2013-01-30 21:34:28.000000000 +0100 +++ new/MIME-tools-5.506/inc/Module/Install/Fetch.pm 2015-04-22 19:30:05.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.00'; + $VERSION = '1.06'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/inc/Module/Install/Makefile.pm new/MIME-tools-5.506/inc/Module/Install/Makefile.pm --- old/MIME-tools-5.504/inc/Module/Install/Makefile.pm 2013-01-30 21:34:28.000000000 +0100 +++ new/MIME-tools-5.506/inc/Module/Install/Makefile.pm 2015-04-22 19:30:05.000000000 +0200 @@ -8,7 +8,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.00'; + $VERSION = '1.06'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -215,18 +215,22 @@ require ExtUtils::MakeMaker; if ( $perl_version and $self->_cmp($perl_version, '5.006') >= 0 ) { - # MakeMaker can complain about module versions that include - # an underscore, even though its own version may contain one! - # Hence the funny regexp to get rid of it. See RT #35800 - # for details. - my $v = $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/; - $self->build_requires( 'ExtUtils::MakeMaker' => $v ); - $self->configure_requires( 'ExtUtils::MakeMaker' => $v ); + # This previous attempted to inherit the version of + # ExtUtils::MakeMaker in use by the module author, but this + # was found to be untenable as some authors build releases + # using future dev versions of EU:MM that nobody else has. + # Instead, #toolchain suggests we use 6.59 which is the most + # stable version on CPAN at time of writing and is, to quote + # ribasushi, "not terminally fucked, > and tested enough". + # TODO: We will now need to maintain this over time to push + # the version up as new versions are released. + $self->build_requires( 'ExtUtils::MakeMaker' => 6.59 ); + $self->configure_requires( 'ExtUtils::MakeMaker' => 6.59 ); } else { # Allow legacy-compatibility with 5.005 by depending on the # most recent EU:MM that supported 5.005. - $self->build_requires( 'ExtUtils::MakeMaker' => 6.42 ); - $self->configure_requires( 'ExtUtils::MakeMaker' => 6.42 ); + $self->build_requires( 'ExtUtils::MakeMaker' => 6.36 ); + $self->configure_requires( 'ExtUtils::MakeMaker' => 6.36 ); } # Generate the MakeMaker params @@ -241,7 +245,6 @@ 'all_from' if you prefer) in Makefile.PL. EOT - $DB::single = 1; if ( $self->tests ) { my @tests = split ' ', $self->tests; my %seen; @@ -412,4 +415,4 @@ __END__ -#line 541 +#line 544 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/inc/Module/Install/Metadata.pm new/MIME-tools-5.506/inc/Module/Install/Metadata.pm --- old/MIME-tools-5.504/inc/Module/Install/Metadata.pm 2013-01-30 21:34:28.000000000 +0100 +++ new/MIME-tools-5.506/inc/Module/Install/Metadata.pm 2015-04-22 19:30:05.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.00'; + $VERSION = '1.06'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -151,15 +151,21 @@ sub install_as_vendor { $_[0]->installdirs('vendor') } sub dynamic_config { - my $self = shift; - unless ( @_ ) { - warn "You MUST provide an explicit true/false value to dynamic_config\n"; - return $self; + my $self = shift; + my $value = @_ ? shift : 1; + if ( $self->{values}->{dynamic_config} ) { + # Once dynamic we never change to static, for safety + return 0; } - $self->{values}->{dynamic_config} = $_[0] ? 1 : 0; + $self->{values}->{dynamic_config} = $value ? 1 : 0; return 1; } +# Convenience command +sub static_config { + shift->dynamic_config(0); +} + sub perl_version { my $self = shift; return $self->{values}->{perl_version} unless @_; @@ -170,7 +176,7 @@ # Normalize the version $version = $self->_perl_version($version); - # We don't support the reall old versions + # We don't support the really old versions unless ( $version >= 5.005 ) { die "Module::Install only supports 5.005 or newer (use ExtUtils::MakeMaker)\n"; } @@ -515,6 +521,7 @@ 'GNU Free Documentation license' => 'unrestricted', 1, 'GNU Affero General Public License' => 'open_source', 1, '(?:Free)?BSD license' => 'bsd', 1, + 'Artistic license 2\.0' => 'artistic_2', 1, 'Artistic license' => 'artistic', 1, 'Apache (?:Software )?license' => 'apache', 1, 'GPL' => 'gpl', 1, @@ -550,9 +557,9 @@ sub _extract_bugtracker { my @links = $_[0] =~ m#L<( - \Qhttp://rt.cpan.org/\E[^>]+| - \Qhttp://github.com/\E[\w_]+/[\w_]+/issues| - \Qhttp://code.google.com/p/\E[\w_\-]+/issues/list + https?\Q://rt.cpan.org/\E[^>]+| + https?\Q://github.com/\E[\w_]+/[\w_]+/issues| + https?\Q://code.google.com/p/\E[\w_\-]+/issues/list )>#gx; my %links; @links{@links}=(); @@ -581,7 +588,7 @@ sub requires_from { my $self = shift; my $content = Module::Install::_readperl($_[0]); - my @requires = $content =~ m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+([\d\.]+)/mg; + my @requires = $content =~ m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+(v?[\d\.]+)/mg; while ( @requires ) { my $module = shift @requires; my $version = shift @requires; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/inc/Module/Install/Win32.pm new/MIME-tools-5.506/inc/Module/Install/Win32.pm --- old/MIME-tools-5.504/inc/Module/Install/Win32.pm 2013-01-30 21:34:28.000000000 +0100 +++ new/MIME-tools-5.506/inc/Module/Install/Win32.pm 2015-04-22 19:30:05.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.00'; + $VERSION = '1.06'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/inc/Module/Install/WriteAll.pm new/MIME-tools-5.506/inc/Module/Install/WriteAll.pm --- old/MIME-tools-5.504/inc/Module/Install/WriteAll.pm 2013-01-30 21:34:28.000000000 +0100 +++ new/MIME-tools-5.506/inc/Module/Install/WriteAll.pm 2015-04-22 19:30:05.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.00'; + $VERSION = '1.06'; @ISA = qw{Module::Install::Base}; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/inc/Module/Install.pm new/MIME-tools-5.506/inc/Module/Install.pm --- old/MIME-tools-5.504/inc/Module/Install.pm 2013-01-30 21:34:28.000000000 +0100 +++ new/MIME-tools-5.506/inc/Module/Install.pm 2015-04-22 19:30:04.000000000 +0200 @@ -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.00'; + $VERSION = '1.06'; # Storage for the pseudo-singleton $MAIN = undef; @@ -451,7 +451,7 @@ } sub _cmp ($$) { - _version($_[0]) <=> _version($_[1]); + _version($_[1]) <=> _version($_[2]); } # Cloned from Params::Util::_CLASS @@ -467,4 +467,4 @@ 1; -# Copyright 2008 - 2010 Adam Kennedy. +# Copyright 2008 - 2012 Adam Kennedy. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/lib/MIME/Body.pm new/MIME-tools-5.506/lib/MIME/Body.pm --- old/MIME-tools-5.504/lib/MIME/Body.pm 2013-01-30 21:28:03.000000000 +0100 +++ new/MIME-tools-5.506/lib/MIME/Body.pm 2015-04-22 19:29:07.000000000 +0200 @@ -141,7 +141,7 @@ use IO::File; ### The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.504"; +$VERSION = "5.506"; #------------------------------ @@ -218,7 +218,7 @@ close($fh); return $str; } -*data = \&as_string; ### silenty invoke preferred usage +*data = \&as_string; ### silently invoke preferred usage #------------------------------ @@ -659,7 +659,7 @@ =head1 AUTHOR Eryq (F<[email protected]>), ZeeGee Software Inc (F<http://www.zeegee.com>). -David F. Skoll ([email protected]) http://www.roaringpenguin.com +Dianne 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.504/lib/MIME/Decoder/Base64.pm new/MIME-tools-5.506/lib/MIME/Decoder/Base64.pm --- old/MIME-tools-5.504/lib/MIME/Decoder/Base64.pm 2013-01-30 21:28:03.000000000 +0100 +++ new/MIME-tools-5.506/lib/MIME/Decoder/Base64.pm 2015-04-22 19:29:07.000000000 +0200 @@ -60,7 +60,7 @@ @ISA = qw(MIME::Decoder); ### The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.504"; +$VERSION = "5.506"; ### 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.504/lib/MIME/Decoder/BinHex.pm new/MIME-tools-5.506/lib/MIME/Decoder/BinHex.pm --- old/MIME-tools-5.504/lib/MIME/Decoder/BinHex.pm 2013-01-30 21:28:03.000000000 +0100 +++ new/MIME-tools-5.506/lib/MIME/Decoder/BinHex.pm 2015-04-22 19:29:07.000000000 +0200 @@ -47,7 +47,7 @@ @ISA = qw(MIME::Decoder); # The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.504"; +$VERSION = "5.506"; #------------------------------ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/lib/MIME/Decoder/Binary.pm new/MIME-tools-5.506/lib/MIME/Decoder/Binary.pm --- old/MIME-tools-5.504/lib/MIME/Decoder/Binary.pm 2013-01-30 21:28:03.000000000 +0100 +++ new/MIME-tools-5.506/lib/MIME/Decoder/Binary.pm 2015-04-22 19:29:07.000000000 +0200 @@ -47,7 +47,7 @@ @ISA = qw(MIME::Decoder); ### The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.504"; +$VERSION = "5.506"; ### Buffer length: my $BUFLEN = 8192; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/lib/MIME/Decoder/Gzip64.pm new/MIME-tools-5.506/lib/MIME/Decoder/Gzip64.pm --- old/MIME-tools-5.504/lib/MIME/Decoder/Gzip64.pm 2013-01-30 21:28:03.000000000 +0100 +++ new/MIME-tools-5.506/lib/MIME/Decoder/Gzip64.pm 2015-04-22 19:29:07.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.504"; +$VERSION = "5.506"; # How to compress stdin to stdout: $GZIP = "gzip -c"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/lib/MIME/Decoder/NBit.pm new/MIME-tools-5.506/lib/MIME/Decoder/NBit.pm --- old/MIME-tools-5.504/lib/MIME/Decoder/NBit.pm 2013-01-30 21:28:03.000000000 +0100 +++ new/MIME-tools-5.506/lib/MIME/Decoder/NBit.pm 2015-04-22 19:29:07.000000000 +0200 @@ -98,7 +98,7 @@ @ISA = qw(MIME::Decoder); ### The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.504"; +$VERSION = "5.506"; ### 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.504/lib/MIME/Decoder/QuotedPrint.pm new/MIME-tools-5.506/lib/MIME/Decoder/QuotedPrint.pm --- old/MIME-tools-5.504/lib/MIME/Decoder/QuotedPrint.pm 2013-01-30 21:28:03.000000000 +0100 +++ new/MIME-tools-5.506/lib/MIME/Decoder/QuotedPrint.pm 2015-04-22 19:29:07.000000000 +0200 @@ -58,7 +58,7 @@ @ISA = qw(MIME::Decoder); # The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.504"; +$VERSION = "5.506"; #------------------------------ # 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.504/lib/MIME/Decoder/UU.pm new/MIME-tools-5.506/lib/MIME/Decoder/UU.pm --- old/MIME-tools-5.504/lib/MIME/Decoder/UU.pm 2013-01-30 21:28:03.000000000 +0100 +++ new/MIME-tools-5.506/lib/MIME/Decoder/UU.pm 2015-04-22 19:29:07.000000000 +0200 @@ -48,7 +48,7 @@ @ISA = qw(MIME::Decoder); # The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.504"; +$VERSION = "5.506"; #------------------------------ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/lib/MIME/Decoder.pm new/MIME-tools-5.506/lib/MIME/Decoder.pm --- old/MIME-tools-5.504/lib/MIME/Decoder.pm 2013-01-30 21:28:03.000000000 +0100 +++ new/MIME-tools-5.506/lib/MIME/Decoder.pm 2015-04-22 19:29:07.000000000 +0200 @@ -126,7 +126,7 @@ ); ### The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.504"; +$VERSION = "5.506"; ### Me: my $ME = 'MIME::Decoder'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/lib/MIME/Entity.pm new/MIME-tools-5.506/lib/MIME/Entity.pm --- old/MIME-tools-5.504/lib/MIME/Entity.pm 2013-01-30 21:28:03.000000000 +0100 +++ new/MIME-tools-5.506/lib/MIME/Entity.pm 2015-04-22 19:29:06.000000000 +0200 @@ -245,7 +245,7 @@ #------------------------------ ### The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.504"; +$VERSION = "5.506"; ### Boundary counter: my $BCount = 0; @@ -570,7 +570,7 @@ $filename = undef if (defined($filename) and $filename eq ''); ### Type-check sanity: - if ($type =~ m{^(multipart|message)/}) { + if ($type =~ m{^(multipart/|message/(rfc822|partial|external-body|delivery-status|disposition-notification|feedback-report)$)}i) { ($encoding =~ /^(|7bit|8bit|binary|-suggest)$/i) or croak "can't have encoding $encoding for message type $type!"; } @@ -1700,7 +1700,7 @@ I<Instance method, override.> Print the entity to the given OUTSTREAM, or to the currently-selected filehandle if none given. OUTSTREAM can be a filehandle, or any object -that reponds to a print() message. +that responds to a print() message. The entity is output as a valid MIME stream! This means that the header is always output first, and the body data (if any) will be @@ -1779,7 +1779,7 @@ I<Instance method, override.> Print the body of the entity to the given OUTSTREAM, or to the currently-selected filehandle if none given. OUTSTREAM can be a -filehandle, or any object that reponds to a print() message. +filehandle, or any object that responds to a print() message. The body is output for inclusion in a valid MIME stream; this means that the body data will be encoded if the header says that it should be. @@ -2250,7 +2250,7 @@ =head1 AUTHOR Eryq (F<[email protected]>), ZeeGee Software Inc (F<http://www.zeegee.com>). -David F. Skoll ([email protected]) http://www.roaringpenguin.com +Dianne 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.504/lib/MIME/Field/ConTraEnc.pm new/MIME-tools-5.506/lib/MIME/Field/ConTraEnc.pm --- old/MIME-tools-5.504/lib/MIME/Field/ConTraEnc.pm 2013-01-30 21:28:03.000000000 +0100 +++ new/MIME-tools-5.506/lib/MIME/Field/ConTraEnc.pm 2015-04-22 19:29:07.000000000 +0200 @@ -35,7 +35,7 @@ =head1 AUTHOR Eryq (F<[email protected]>), ZeeGee Software Inc (F<http://www.zeegee.com>). -David F. Skoll ([email protected]) http://www.roaringpenguin.com +Dianne Skoll ([email protected]) http://www.roaringpenguin.com =cut @@ -47,7 +47,7 @@ @ISA = qw(MIME::Field::ParamVal); # The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.504"; +$VERSION = "5.506"; # Install it: bless([])->register('Content-transfer-encoding'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/lib/MIME/Field/ContDisp.pm new/MIME-tools-5.506/lib/MIME/Field/ContDisp.pm --- old/MIME-tools-5.504/lib/MIME/Field/ContDisp.pm 2013-01-30 21:27:49.000000000 +0100 +++ new/MIME-tools-5.506/lib/MIME/Field/ContDisp.pm 2015-04-22 19:29:07.000000000 +0200 @@ -35,7 +35,7 @@ =head1 AUTHOR Eryq (F<[email protected]>), ZeeGee Software Inc (F<http://www.zeegee.com>). -David F. Skoll ([email protected]) http://www.roaringpenguin.com +Dianne Skoll ([email protected]) http://www.roaringpenguin.com =cut @@ -48,7 +48,7 @@ @ISA = qw(MIME::Field::ParamVal); # The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.504"; +$VERSION = "5.506"; # Install it: bless([])->register('Content-disposition'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/lib/MIME/Field/ContType.pm new/MIME-tools-5.506/lib/MIME/Field/ContType.pm --- old/MIME-tools-5.504/lib/MIME/Field/ContType.pm 2013-01-30 21:27:45.000000000 +0100 +++ new/MIME-tools-5.506/lib/MIME/Field/ContType.pm 2015-04-22 19:29:07.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.504"; +$VERSION = "5.506"; # Install it: bless([])->register('Content-type'); @@ -186,7 +186,7 @@ =head1 AUTHOR Eryq (F<[email protected]>), ZeeGee Software Inc (F<http://www.zeegee.com>). -David F. Skoll ([email protected]) http://www.roaringpenguin.com +Dianne Skoll ([email protected]) http://www.roaringpenguin.com =cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/lib/MIME/Field/ParamVal.pm new/MIME-tools-5.506/lib/MIME/Field/ParamVal.pm --- old/MIME-tools-5.504/lib/MIME/Field/ParamVal.pm 2013-01-30 21:27:41.000000000 +0100 +++ new/MIME-tools-5.506/lib/MIME/Field/ParamVal.pm 2015-04-22 19:29:07.000000000 +0200 @@ -80,7 +80,7 @@ #------------------------------ # The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.504"; +$VERSION = "5.506"; #------------------------------ @@ -93,7 +93,7 @@ my $PARAMNAME = '[^\x00-\x1f\x80-\xff :=]+'; # Pattern to match the first value on the line: -my $FIRST = '[^\s\;\x00-\x1f\x80-\xff]+'; +my $FIRST = '[^\s\;\x00-\x1f\x80-\xff]*'; # Pattern to match an RFC 2045 token: # @@ -209,7 +209,7 @@ } sub rfc2231percent { - # Do percent-subsitution + # Do percent-substitution my($str) = @_; local $1; $str =~ s/%([0-9a-fA-F]{2})/pack("C", hex($1))/ge; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/lib/MIME/Head.pm new/MIME-tools-5.506/lib/MIME/Head.pm --- old/MIME-tools-5.504/lib/MIME/Head.pm 2013-01-30 21:27:38.000000000 +0100 +++ new/MIME-tools-5.506/lib/MIME/Head.pm 2015-04-22 19:29:07.000000000 +0200 @@ -138,7 +138,7 @@ #------------------------------ ### The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.504"; +$VERSION = "5.506"; ### Sanity (we put this test after our own version, for CPAN::): use Mail::Header 1.06 (); @@ -216,7 +216,7 @@ =item read FILEHANDLE I<Instance (or class) method.> -This initiallizes a header object by reading it in from a FILEHANDLE, +This initializes a header object by reading it in from a FILEHANDLE, until the terminating blank line is encountered. A syntax error or end-of-stream will also halt processing. @@ -268,19 +268,19 @@ =item add TAG,TEXT,[INDEX] I<Instance method, inherited.> -Add a new occurence of the field named TAG, given by TEXT: +Add a new occurrence of the field named TAG, given by TEXT: ### Add the trace information: $head->add('Received', 'from eryq.pr.mcs.net by gonzo.net with smtp'); -Normally, the new occurence will be I<appended> to the existing -occurences. However, if the optional INDEX argument is 0, then the -new occurence will be I<prepended>. If you want to be I<explicit> +Normally, the new occurrence will be I<appended> to the existing +occurrences. However, if the optional INDEX argument is 0, then the +new occurrence will be I<prepended>. If you want to be I<explicit> about appending, specify an INDEX of -1. -B<Warning>: this method always adds new occurences; it doesn't overwrite -any existing occurences... so if you just want to I<change> the value +B<Warning>: this method always adds new occurrences; it doesn't overwrite +any existing occurrences... so if you just want to I<change> the value of a field (creating it if necessary), then you probably B<don't> want to use this method: consider using C<replace()> instead. @@ -305,7 +305,7 @@ =item count TAG I<Instance method, inherited.> -Returns the number of occurences of a field; in a boolean context, this +Returns the number of occurrences of a field; in a boolean context, this tells you whether a given field exists: ### Was a "Subject:" field given? @@ -408,7 +408,7 @@ =item delete TAG,[INDEX] I<Instance method, inherited.> -Delete all occurences of the field named TAG. +Delete all occurrences of the field named TAG. ### Remove some MIME information: $head->delete('MIME-Version'); @@ -444,7 +444,7 @@ I<Instance method, inherited.> Get the contents of field TAG. -If a B<numeric INDEX> is given, returns the occurence at that index, +If a B<numeric INDEX> is given, returns the occurrence at that index, or undef if not present: ### Print the first and last 'Received:' entries (explicitly): @@ -458,7 +458,7 @@ my $most_recent = $head->get('received'); If B<no INDEX> is given, and invoked in an B<array> context, then -I<all> occurences of the field are returned: +I<all> occurrences of the field are returned: ### Get all 'Received:' entries: my @all_received = $head->get('received'); @@ -476,21 +476,21 @@ =item get_all FIELD I<Instance method.> -Returns the list of I<all> occurences of the field, or the +Returns the list of I<all> occurrences of the field, or the empty list if the field is not present: ### How did it get here? @history = $head->get_all('Received'); B<Note:> I had originally experimented with having C<get()> return all -occurences when invoked in an array context... but that causes a lot of +occurrences when invoked in an array context... but that causes a lot of accidents when you get careless and do stuff like this: print "\u$field: ", $head->get($field); It also made the intuitive behaviour unclear if the INDEX argument was given in an array context. So I opted for an explicit approach -to asking for all occurences. +to asking for all occurrences. =cut @@ -540,7 +540,7 @@ # set TAG,TEXT # # Instance method, DEPRECATED. -# Set the field named TAG to [the single occurence given by the TEXT. +# Set the field named TAG to [the single occurrence given by the TEXT. # sub set { my $self = shift; @@ -569,7 +569,7 @@ =item unfold [FIELD] I<Instance method, inherited.> -Unfold (remove newlines in) the text of all occurences of the given FIELD. +Unfold (remove newlines in) the text of all occurrences of the given FIELD. If the FIELD is omitted, I<all> fields are unfolded. Returns the "self" object. @@ -859,7 +859,7 @@ We could even make it a superclass of MIME::Head: that way, MIME::Head would have to implement its interface, I<and> allow itself to be -initiallized from a MIME::Attrs object. +initialized from a MIME::Attrs object. However, when you read RFC 2045, you begin to see how much MIME information is organized by its presence in particular fields. I imagine that we'd @@ -868,7 +868,7 @@ having MIME::Head. -=item Why all this "occurence" and "index" jazz? Isn't every field unique? +=item Why all this "occurrence" and "index" jazz? Isn't every field unique? Aaaaaaaaaahh....no. @@ -876,7 +876,7 @@ store the fields as a hash of strings, one string per hash entry. Unfortunately, there's the little matter of the C<Received:> field, which (unlike C<From:>, C<To:>, etc.) will often have multiple -occurences; e.g.: +occurrences; e.g.: Received: from gsfc.nasa.gov by eryq.pr.mcs.net with smtp (Linux Smail3.1.28.1 #5) id m0tStZ7-0007X4C; @@ -899,9 +899,9 @@ information. I also didn't want to make this a special case; after all, who -knows what other fields could have multiple occurences in the +knows what other fields could have multiple occurrences in the future? So, clearly, multiple entries had to somehow be stored -multiple times... and the different occurences had to be retrievable. +multiple times... and the different occurrences had to be retrievable. =back @@ -912,7 +912,7 @@ =head1 AUTHOR Eryq (F<[email protected]>), ZeeGee Software Inc (F<http://www.zeegee.com>). -David F. Skoll ([email protected]) http://www.roaringpenguin.com +Dianne 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.504/lib/MIME/Parser/Filer.pm new/MIME-tools-5.506/lib/MIME/Parser/Filer.pm --- old/MIME-tools-5.504/lib/MIME/Parser/Filer.pm 2011-10-19 19:25:36.000000000 +0200 +++ new/MIME-tools-5.506/lib/MIME/Parser/Filer.pm 2013-08-13 17:18:53.000000000 +0200 @@ -889,7 +889,7 @@ ### Invoke inherited method first! $self->SUPER::init_parse; - ### Determine the subdirectory of ther base to use: + ### Determine the subdirectory of their base to use: my $subdir = (defined($self->{MPFU_DirName}) ? $self->{MPFU_DirName} : ("msg-".scalar(time)."-$$-".$GSubdirNo++)); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/lib/MIME/Parser/Reader.pm new/MIME-tools-5.506/lib/MIME/Parser/Reader.pm --- old/MIME-tools-5.504/lib/MIME/Parser/Reader.pm 2011-11-21 17:03:15.000000000 +0100 +++ new/MIME-tools-5.506/lib/MIME/Parser/Reader.pm 2015-01-07 15:40:00.000000000 +0100 @@ -241,7 +241,7 @@ if ($n_out) { ### native input, native output [fastest] while (<$n_in>) { # Normalize line ending - $_ =~ s/(:?\n\r|\r\n|\r)$/\n/ if $normalize_newlines; + $_ =~ s/(?:\n\r|\r\n|\r)$/\n/ if $normalize_newlines; if (substr($_, 0, 2) eq '--') { ($maybe = $_) =~ s/[ \t\r\n]+\Z//; $bh{$maybe} and do { $eos = $bh{$maybe}; last }; @@ -253,7 +253,7 @@ else { ### native input, OO output [slower] while (<$n_in>) { # Normalize line ending - $_ =~ s/(:?\n\r|\r\n|\r)$/\n/ if $normalize_newlines; + $_ =~ s/(?:\n\r|\r\n|\r)$/\n/ if $normalize_newlines; if (substr($_, 0, 2) eq '--') { ($maybe = $_) =~ s/[ \t\r\n]+\Z//; $bh{$maybe} and do { $eos = $bh{$maybe}; last }; @@ -267,7 +267,7 @@ if ($n_out) { ### OO input, native output [even slower] while (defined($_ = $in->getline)) { # Normalize line ending - $_ =~ s/(:?\n\r|\r\n|\r)$/\n/ if $normalize_newlines; + $_ =~ s/(?:\n\r|\r\n|\r)$/\n/ if $normalize_newlines; if (substr($_, 0, 2) eq '--') { ($maybe = $_) =~ s/[ \t\r\n]+\Z//; $bh{$maybe} and do { $eos = $bh{$maybe}; last }; @@ -279,7 +279,7 @@ else { ### OO input, OO output [slowest] while (defined($_ = $in->getline)) { # Normalize line ending - $_ =~ s/(:?\n\r|\r\n|\r)$/\n/ if $normalize_newlines; + $_ =~ s/(?:\n\r|\r\n|\r)$/\n/ if $normalize_newlines; if (substr($_, 0, 2) eq '--') { ($maybe = $_) =~ s/[ \t\r\n]+\Z//; $bh{$maybe} and do { $eos = $bh{$maybe}; last }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/lib/MIME/Parser.pm new/MIME-tools-5.506/lib/MIME/Parser.pm --- old/MIME-tools-5.504/lib/MIME/Parser.pm 2013-01-30 21:27:34.000000000 +0100 +++ new/MIME-tools-5.506/lib/MIME/Parser.pm 2015-04-22 19:29:07.000000000 +0200 @@ -153,7 +153,7 @@ #------------------------------ ### The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.504"; +$VERSION = "5.506"; ### How to catenate: $CAT = '/bin/cat'; @@ -1118,7 +1118,7 @@ $io = IO::File->new($data, '<:'); } elsif( ref $data eq 'ARRAY' ) { # Passing arrays is deprecated now that we've nuked IO::ScalarArray - # but for backwards compatability we still support it by joining the + # but for backwards compatibility we still support it by joining the # array lines to a scalar and doing scalar IO on it. my $tmp_data = join('', @$data); $io = IO::File->new(\$tmp_data, '<:'); @@ -1791,7 +1791,7 @@ B<Native I/O is much faster than object-oriented I/O.> It's much faster to use E<lt>$fooE<gt> than $foo-E<gt>getline. -For backwards compatibilty, this module must continue to use +For backwards compatibility, this module must continue to use object-oriented I/O in most places, but if you use L<parse()|/parse> with a "real" filehandle (string, globref, or subclass of IO::File) then MIME::Parser is able to perform some crucial optimizations. @@ -1903,11 +1903,11 @@ Some folks have asked for the ability to bypass this temp-file mechanism, I suppose because they assume it would slow down their application. -I considered accomodating this wish, but the temp-file +I considered accommodating this wish, but the temp-file approach solves a lot of thorny problems in parsing, and it also protects against hidden bugs in user applications (what if you've directed the encoded part into a scalar, and someone unexpectedly -sends you a 6 MB tar file?). Finally, I'm just not conviced that +sends you a 6 MB tar file?). Finally, I'm just not convinced that the temp-file use adds significant overhead. @@ -1993,7 +1993,7 @@ =head1 AUTHOR Eryq (F<[email protected]>), ZeeGee Software Inc (F<http://www.zeegee.com>). -David F. Skoll ([email protected]) http://www.roaringpenguin.com +Dianne 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.504/lib/MIME/Tools.pm new/MIME-tools-5.506/lib/MIME/Tools.pm --- old/MIME-tools-5.504/lib/MIME/Tools.pm 2013-01-30 21:27:30.000000000 +0100 +++ new/MIME-tools-5.506/lib/MIME/Tools.pm 2015-04-22 19:29:03.000000000 +0200 @@ -1,7 +1,7 @@ package MIME::Tools; #------------------------------ -# Because the POD documenation is pretty extensive, it follows +# Because the POD documentation is pretty extensive, it follows # the __END__ statement below... #------------------------------ @@ -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.504"; +$VERSION = "5.506"; # Configuration (do NOT alter this directly)... # All legal CONFIG vars *must* be in here, even if only to be set to undef: @@ -421,7 +421,7 @@ sent C<quoted-printable> for reliability. See the section on encoding/decoding for more details, as well as -L<"A MIME PRIMER">. +L<"A MIME PRIMER"> below. =head2 Sending email @@ -438,7 +438,7 @@ The B<MIME::Decoder> class can be used to I<encode> as well; this is done when printing MIME entities. All the standard encodings are supported -(see L<"A MIME PRIMER"> for details): +(see L<"A MIME PRIMER"> below for details): Encoding: | Normally used when message contents are: ------------------------------------------------------------------- @@ -988,7 +988,7 @@ =head1 AUTHOR Eryq (F<[email protected]>), ZeeGee Software Inc (F<http://www.zeegee.com>). -David F. Skoll (F<[email protected]>) F<http://www.roaringpenguin.com>. +Dianne Skoll (F<[email protected]>) F<http://www.roaringpenguin.com>. Copyright (c) 1998, 1999 by ZeeGee Software Inc (www.zeegee.com). Copyright (c) 2004 by Roaring Penguin Software Inc (www.roaringpenguin.com) @@ -1036,4 +1036,11 @@ Please forgive me if I've accidentally left you out. Better yet, email me, and I'll put you in. +=head1 LICENSE + +This program is free software; you can redistribute it and/or +modify it under the same terms as Perl itself. + +See the COPYING file for more details. + =cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/lib/MIME/WordDecoder.pm new/MIME-tools-5.506/lib/MIME/WordDecoder.pm --- old/MIME-tools-5.504/lib/MIME/WordDecoder.pm 2011-02-17 17:53:01.000000000 +0100 +++ new/MIME-tools-5.506/lib/MIME/WordDecoder.pm 2015-04-22 19:28:39.000000000 +0200 @@ -172,7 +172,7 @@ I<Class method, constructor.> If \@HANDLERS is given, then @HANDLERS is passed to handler() -to initiallize the internal map. +to initialize the internal map. =cut @@ -654,7 +654,7 @@ =head1 AUTHOR Eryq (F<[email protected]>), ZeeGee Software Inc (F<http://www.zeegee.com>). -David F. Skoll ([email protected]) http://www.roaringpenguin.com +Dianne Skoll ([email protected]) http://www.roaringpenguin.com =cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/lib/MIME/Words.pm new/MIME-tools-5.506/lib/MIME/Words.pm --- old/MIME-tools-5.504/lib/MIME/Words.pm 2013-01-30 21:27:26.000000000 +0100 +++ new/MIME-tools-5.506/lib/MIME/Words.pm 2015-04-22 19:29:07.000000000 +0200 @@ -94,7 +94,7 @@ #------------------------------ ### The package version, both in 1.23 style *and* usable by MakeMaker: -$VERSION = "5.504"; +$VERSION = "5.506"; ### Nonprintables (controls + x7F + 8bit): my $NONPRINT = "\\x00-\\x1F\\x7F-\\xFF"; @@ -338,7 +338,7 @@ =head1 AUTHOR Eryq (F<[email protected]>), ZeeGee Software Inc (F<http://www.zeegee.com>). -David F. Skoll ([email protected]) http://www.roaringpenguin.com +Dianne 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.504/t/02-kwalitee.t new/MIME-tools-5.506/t/02-kwalitee.t --- old/MIME-tools-5.504/t/02-kwalitee.t 2007-09-29 03:34:52.000000000 +0200 +++ new/MIME-tools-5.506/t/02-kwalitee.t 2013-08-13 17:13:01.000000000 +0200 @@ -1,4 +1,9 @@ -use Test::More; +BEGIN { + use Test::More; + unless ($ENV{AUTHOR_TESTING}||$ENV{RELEASE_TESTING}) { + plan(skip_all => 'These tests are for author or release candidate testing'); + } +} eval { require Test::Kwalitee; Test::Kwalitee->import() }; plan( skip_all => 'Test::Kwalitee not installed; skipping' ) if $@; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/t/Entity.t new/MIME-tools-5.506/t/Entity.t --- old/MIME-tools-5.504/t/Entity.t 2008-12-05 17:59:28.000000000 +0100 +++ new/MIME-tools-5.506/t/Entity.t 2014-09-11 16:00:11.000000000 +0200 @@ -1,7 +1,7 @@ #!/usr/bin/perl -w use strict; use warnings; -use Test::More tests => 34; +use Test::More tests => 39; use MIME::Entity; use MIME::Parser; @@ -101,6 +101,45 @@ my $got = $e->head->mime_attr('content-type.charset'); is($got, 'iso8859-1', 'Charset: explicit'); } + + { + #-----test------ + my $croaked = 1; + eval { + my $e = MIME::Entity->build(Type => 'message/rfc822', + Encoding => 'base64', + Data => "Subject: phooey\n\nBlat\n"); + $croaked = 0; + }; + ok($croaked, 'MIME::Entity->build croaked on message/rfc822 with base64 encoding'); + ok($@ =~ /can't have encoding base64 for message type message\/rfc822/, + 'and it croaked with expected error.'); + } + + { + #-----test------ + my $croaked = 1; + eval { + my $e = MIME::Entity->build(Type => 'message/global', + Encoding => 'base64', + Data => "Subject: phooey\n\nBlat\n"); + $croaked = 0; + }; + ok(!$croaked, 'MIME::Entity->build did not croak on message/global with base64 encoding'); + } + { + #-----test------ + my $croaked = 1; + eval { + my $e = MIME::Entity->build(Type => 'multipart/ALTERNATIVE', + Encoding => 'base64', + Data => "Subject: phooey\n\nBlat\n"); + $croaked = 0; + }; + ok($croaked, 'MIME::Entity->build croaked on multipart/alternative with base64 encoding'); + ok($@ =~ /can't have encoding base64 for message type multipart\/ALTERNATIVE/, + 'and it croaked with expected error.'); + } } #diag("Create an entity"); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/t/Smtpsend.t new/MIME-tools-5.506/t/Smtpsend.t --- old/MIME-tools-5.504/t/Smtpsend.t 2012-05-24 17:58:09.000000000 +0200 +++ new/MIME-tools-5.506/t/Smtpsend.t 2013-08-13 16:53:36.000000000 +0200 @@ -3,6 +3,7 @@ use warnings; use Config; use Test::More; +$ENV{MAILDOMAIN}='example.com'; my $can_fork = $Config{d_fork} || $Config{d_pseudofork} || (($^O eq 'MSWin32' || $^O eq 'NetWare') and $Config{useithreads} and diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-tools-5.504/testmsgs/malformed-content-type-zip.msg new/MIME-tools-5.506/testmsgs/malformed-content-type-zip.msg --- old/MIME-tools-5.504/testmsgs/malformed-content-type-zip.msg 1970-01-01 01:00:00.000000000 +0100 +++ new/MIME-tools-5.506/testmsgs/malformed-content-type-zip.msg 2013-10-10 19:46:41.000000000 +0200 @@ -0,0 +1,21 @@ +MIME-Version: 1.0 +To: [email protected] +Subject: Payroll Received by Intuit +Content-Type: multipart/mixed; + boundary="----=_Part_67482_7396105824.6005753659145" + +------=_Part_67482_7396105824.6005753659145 +Content-Type: text/plain; charset=windows-1251; format=flowed +Content-Transfer-Encoding: 7bit + +Dear, We received your payroll on October 9, 2013 at 4:55 PM . + +------=_Part_67482_7396105824.6005753659145 +Content-Type: ; name="payroll_report_429047_10092013.zip" +Content-Transfer-Encoding: base64 +Content-Disposition: attachment; + name="payroll_report_409401_10092013.zip" + +Z290Y2hhCg== + +------=_Part_67482_7396105824.6005753659145-- ++++++ cpanspec.yml ++++++ --- #description_paragraphs: 3 #no_testing: broken upstream #sources: # - source1 # - source2 #patches: # foo.patch: -p1 # bar.patch: #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 #custom_test: |- #startserver && make test #ignore_requires: Bizarre::Module
