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 - coolo@suse.com
+
+- 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
+5.506 2015-04-22 Dianne Skoll
+
+ * VERSION 5.506 RELEASED
+
+ * Update maintainer's name to "Dianne Skoll"
+
+5.505 2013-11-14 Dianne Skoll
+
+ * 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
* 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
+5.503 2012-06-08 Dianne Skoll
* 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
+5.502 2011-03-08 Dianne Skoll
* 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
+5.501 2011-02-17 Dianne Skoll
* 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
+5.424 2007-11-07 Dianne Skoll
* 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
+5.420 2006-03-17 Dianne Skoll
* 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
+5.419 2005-12-22 Dianne Skoll
* 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
+5.418 2005-09-29 Dianne Skoll
* 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
+5.417 2005-01-20 Dianne Skoll
* 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
+5.416 2005-01-03 Dianne Skoll
* 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
+5.415 2004-10-27 Dianne Skoll
* 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
+5.414 2004-10-06 Dianne Skoll
* 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
+5.413 2004-09-15 Dianne Skoll
* 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
+5.412 2004-09-09 Dianne Skoll
* 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
+2004-09-08 Dianne Skoll
* 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
+2004-09-07 Dianne Skoll
* 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 , David F. Skoll , Dave O'Neill "
+ - "Eryq , Dianne Skoll , Dave O'Neill "
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 , David F. Skoll , Dave O'Neill };
+author q{Eryq , Dianne Skoll , Dave O'Neill };
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 (eryq@zeegee.com), ZeeGee Software Inc (http://www.zeegee.com).
- David F. Skoll (dfs@roaringpenguin.com) http://www.roaringpenguin.com
+ Dianne Skoll (dfs@roaringpenguin.com) 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), ZeeGee Software Inc (Fhttp://www.zeegee.com).
-David F. Skoll (dfs@roaringpenguin.com) http://www.roaringpenguin.com
+Dianne Skoll (dfs@roaringpenguin.com) 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
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
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), ZeeGee Software Inc (Fhttp://www.zeegee.com).
-David F. Skoll (dfs@roaringpenguin.com) http://www.roaringpenguin.com
+Dianne Skoll (dfs@roaringpenguin.com) 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), ZeeGee Software Inc (Fhttp://www.zeegee.com).
-David F. Skoll (dfs@roaringpenguin.com) http://www.roaringpenguin.com
+Dianne Skoll (dfs@roaringpenguin.com) 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), ZeeGee Software Inc (Fhttp://www.zeegee.com).
-David F. Skoll (dfs@roaringpenguin.com) http://www.roaringpenguin.com
+Dianne Skoll (dfs@roaringpenguin.com) 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), ZeeGee Software Inc (Fhttp://www.zeegee.com).
-David F. Skoll (dfs@roaringpenguin.com) http://www.roaringpenguin.com
+Dianne Skoll (dfs@roaringpenguin.com) 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
-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
-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 want to use
this method: consider using C instead.
@@ -305,7 +305,7 @@
=item count TAG
I
-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
-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
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');
BNote: I had originally experimented with having C 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
-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 CReceived: field,
which (unlike CFrom:, CTo:, 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), ZeeGee Software Inc (Fhttp://www.zeegee.com).
-David F. Skoll (dfs@roaringpenguin.com) http://www.roaringpenguin.com
+Dianne Skoll (dfs@roaringpenguin.com) 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
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
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), ZeeGee Software Inc (Fhttp://www.zeegee.com).
-David F. Skoll (dfs@roaringpenguin.com) http://www.roaringpenguin.com
+Dianne Skoll (dfs@roaringpenguin.com) 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 BMIME::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), ZeeGee Software Inc (Fhttp://www.zeegee.com).
-David F. Skoll (F) Fhttp://www.roaringpenguin.com.
+Dianne Skoll (F) Fhttp://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
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), ZeeGee Software Inc (Fhttp://www.zeegee.com).
-David F. Skoll (dfs@roaringpenguin.com) http://www.roaringpenguin.com
+Dianne Skoll (dfs@roaringpenguin.com) 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), ZeeGee Software Inc (Fhttp://www.zeegee.com).
-David F. Skoll (dfs@roaringpenguin.com) http://www.roaringpenguin.com
+Dianne Skoll (dfs@roaringpenguin.com) 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: someone@example.com
+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