Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-MIME-tools for openSUSE:Factory
checked in at 2022-07-13 15:35:04
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-MIME-tools (Old)
and /work/SRC/openSUSE:Factory/.perl-MIME-tools.new.1523 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-MIME-tools"
Wed Jul 13 15:35:04 2022 rev:37 rq:988974 version:5.510
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-MIME-tools/perl-MIME-tools.changes
2017-04-12 18:17:16.289004115 +0200
+++
/work/SRC/openSUSE:Factory/.perl-MIME-tools.new.1523/perl-MIME-tools.changes
2022-07-13 15:35:06.157379098 +0200
@@ -1,0 +2,6 @@
+Thu Jul 7 03:06:24 UTC 2022 - Tina M??ller <[email protected]>
+
+- updated to 5.510
+ see /usr/share/doc/packages/perl-MIME-tools/ChangeLog
+
+-------------------------------------------------------------------
Old:
----
MIME-tools-5.509.tar.gz
New:
----
MIME-tools-5.510.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-MIME-tools.spec ++++++
--- /var/tmp/diff_new_pack.eWpOvb/_old 2022-07-13 15:35:06.589379764 +0200
+++ /var/tmp/diff_new_pack.eWpOvb/_new 2022-07-13 15:35:06.593379770 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-MIME-tools
#
-# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2022 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -12,24 +12,23 @@
# license that conforms to the Open Source Definition (Version 1.9)
# published by the Open Source Initiative.
-# Please submit bugfixes or comments via http://bugs.opensuse.org/
+# Please submit bugfixes or comments via https://bugs.opensuse.org/
#
+%define cpan_name MIME-tools
Name: perl-MIME-tools
-Version: 5.509
+Version: 5.510
Release: 0
-%define cpan_name MIME-tools
+License: Artistic-1.0 OR GPL-1.0-or-later
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/
+URL: https://metacpan.org/release/%{cpan_name}
Source0:
https://cpan.metacpan.org/authors/id/D/DS/DSKOLL/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
BuildArch: noarch
-BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
+BuildRequires: perl(ExtUtils::MakeMaker) >= 6.59
BuildRequires: perl(File::Temp) >= 0.18
BuildRequires: perl(Mail::Field) >= 1.05
BuildRequires: perl(Mail::Header) >= 1.01
@@ -46,15 +45,15 @@
Tools to manipulate MIME messages
%prep
-%setup -q -n %{cpan_name}-%{version}
-find . -type f ! -name \*.pl -print0 | xargs -0 chmod 644
+%autosetup -n %{cpan_name}-%{version}
+find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path
"*/script/*" ! -name "configure" -print0 | xargs -0 chmod 644
%build
-%{__perl} Makefile.PL INSTALLDIRS=vendor
-%{__make} %{?_smp_mflags}
+PERL_USE_UNSAFE_INC=1 perl Makefile.PL INSTALLDIRS=vendor
+%make_build
%check
-%{__make} test
+make test
%install
%perl_make_install
@@ -62,7 +61,6 @@
%perl_gen_filelist
%files -f %{name}.files
-%defattr(-,root,root,755)
%doc ChangeLog examples README
%license COPYING
++++++ MIME-tools-5.509.tar.gz -> MIME-tools-5.510.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MIME-tools-5.509/ChangeLog
new/MIME-tools-5.510/ChangeLog
--- old/MIME-tools-5.509/ChangeLog 2017-04-05 19:32:53.000000000 +0200
+++ new/MIME-tools-5.510/ChangeLog 2022-07-06 16:18:45.000000000 +0200
@@ -1,4 +1,14 @@
-5.509 2017-04-05 Dianne Skoll <[email protected]>
+5.510 2022-07-06 Dianne Skoll <[email protected]>
+
+ * VERSION 5.510 RELEASED
+
+ * Update author contact info
+
+ * Make code work in taint mode
+
+ * Clarify MIME::Entity documentation
+
+5.509 2017-04-05 Dianne Skoll <[email protected]>
* VERSION 5.509 RELEASED
@@ -15,14 +25,14 @@
Allow \r\n to be used as line-end delimeter when outputting MIME
message.
-5.508 2016-08-29 Dianne Skoll <[email protected]>
+5.508 2016-08-29 Dianne Skoll <[email protected]>
* VERSION 5.508 RELEASED
* Fix test broken by Perl update
https://rt.cpan.org/Ticket/Display.html?id=113887
-5.507 2015-09-30 Dianne Skoll <[email protected]>
+5.507 2015-09-30 Dianne Skoll <[email protected]>
* VERSION 5.507 RELEASED
@@ -31,13 +41,13 @@
* Fix typo that broke MIME::Body::incore->open() on Perl 5.20
-5.506 2015-04-22 Dianne 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]>
+5.505 2013-11-14 Dianne Skoll <[email protected]>
* VERSION 5.505 RELEASED
@@ -56,7 +66,7 @@
* 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]>
+5.504 2013-01-30 Dianne Skoll <[email protected]>
* VERSION 5.504 RELEASED
@@ -71,7 +81,7 @@
break multibyte-encodings (eg, utf-8)
https://rt.cpan.org/Public/Bug/Display.html?id=5462
-5.503 2012-06-08 Dianne Skoll <[email protected]>
+5.503 2012-06-08 Dianne Skoll <[email protected]>
* VERSION 5.503 RELEASED
@@ -105,7 +115,7 @@
* Add "use strict" everywhere
https://rt.cpan.org/Public/Bug/Display.html?id=77582
-5.502 2011-03-08 Dianne Skoll <[email protected]>
+5.502 2011-03-08 Dianne Skoll <[email protected]>
* VERSION 5.502 RELEASED
@@ -120,7 +130,7 @@
* Fix unit test failure on Win32:
(https://rt.cpan.org/Ticket/Display.html?id=66286)
-5.501 2011-02-17 Dianne Skoll <[email protected]>
+5.501 2011-02-17 Dianne Skoll <[email protected]>
* VERSION 5.501 RELEASED
@@ -226,7 +236,7 @@
never worked and has been removed, any code calling tmp_recycling()
should stop attempting to use the feature.
-5.424 2007-11-07 Dianne Skoll <[email protected]>
+5.424 2007-11-07 Dianne Skoll <[email protected]>
* VERSION 5.424 RELEASED
@@ -306,14 +316,14 @@
* (cleanup) Merge all changelog information from README and
MIME/Tools.pm into ChangeLog
-5.420 2006-03-17 Dianne 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 Dianne Skoll <[email protected]>
+5.419 2005-12-22 Dianne Skoll <[email protected]>
* VERSION 5.419 RELEASED
@@ -322,7 +332,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 Dianne Skoll <[email protected]>
+5.418 2005-09-29 Dianne Skoll <[email protected]>
* VERSION 5.418 RELEASED
@@ -337,7 +347,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 Dianne Skoll <[email protected]>
+5.417 2005-01-20 Dianne Skoll <[email protected]>
* VERSION 5.417 RELEASED
@@ -349,7 +359,7 @@
parameters was buggy and caused decoding errors. This has been
fixed.
-5.416 2005-01-03 Dianne Skoll <[email protected]>
+5.416 2005-01-03 Dianne Skoll <[email protected]>
* VERSION 5.416 RELEASED
@@ -361,14 +371,14 @@
parameters. Apparently, not doing so can cause Perl to core dump
on certain badly-formed messages.
-5.415 2004-10-27 Dianne 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 Dianne Skoll <[email protected]>
+5.414 2004-10-06 Dianne Skoll <[email protected]>
* VERSION 5.414 RELEASED
@@ -378,14 +388,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 Dianne 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 Dianne Skoll <[email protected]>
+5.412 2004-09-09 Dianne Skoll <[email protected]>
* VERSION 5.412 RELEASED
@@ -395,7 +405,7 @@
* Filer.pm: Be much more strict in evil_filename, allowing only
a set of known good characters.
-2004-09-08 Dianne Skoll <[email protected]>
+2004-09-08 Dianne Skoll <[email protected]>
* Skip BinHex decoding if prerequisite modules not installed.
@@ -410,7 +420,7 @@
* Correct bad regexp test for "bad PDF" files.
-2004-09-07 Dianne 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.509/META.yml
new/MIME-tools-5.510/META.yml
--- old/MIME-tools-5.509/META.yml 2017-04-03 16:53:54.000000000 +0200
+++ new/MIME-tools-5.510/META.yml 2012-06-08 15:40:22.000000000 +0200
@@ -1,16 +1,15 @@
---
abstract: 'Tools to manipulate MIME messages'
author:
- - "Eryq <[email protected]>, Dianne Skoll <[email protected]>, Dave
O'Neill <[email protected]>"
+ - "Eryq <[email protected]>, David F. Skoll <[email protected]>, Dave
O'Neill <[email protected]>"
build_requires:
- ExtUtils::MakeMaker: 6.59
+ ExtUtils::MakeMaker: 6.42
Test::Deep: 0
Test::More: 0
configure_requires:
- ExtUtils::MakeMaker: 6.59
+ ExtUtils::MakeMaker: 6.42
distribution_type: module
-dynamic_config: 1
-generated_by: 'Module::Install version 1.14'
+generated_by: 'Module::Install version 1.00'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -38,4 +37,4 @@
perl: 5.8.0
resources:
license: http://dev.perl.org/licenses/
-version: '5.508'
+version: 5.503
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MIME-tools-5.509/MYMETA.json
new/MIME-tools-5.510/MYMETA.json
--- old/MIME-tools-5.509/MYMETA.json 2017-04-05 18:56:40.000000000 +0200
+++ new/MIME-tools-5.510/MYMETA.json 2022-07-06 16:19:03.000000000 +0200
@@ -1,16 +1,16 @@
{
"abstract" : "Tools to manipulate MIME messages",
"author" : [
- "Eryq <[email protected]>, Dianne Skoll <[email protected]>, Dave
O'Neill <[email protected]>"
+ "Eryq <[email protected]>, David F. Skoll <[email protected]>, Dave
O'Neill <[email protected]>"
],
"dynamic_config" : 0,
- "generated_by" : "Module::Install version 1.14, CPAN::Meta::Converter
version 2.142690",
+ "generated_by" : "Module::Install version 1.00, CPAN::Meta::Converter
version 2.150010",
"license" : [
"perl_5"
],
"meta-spec" : {
"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";,
- "version" : "2"
+ "version" : 2
},
"name" : "MIME-tools",
"no_index" : {
@@ -58,6 +58,7 @@
"http://dev.perl.org/licenses/";
]
},
- "version" : "5.508",
- "x_module_name" : "MIME::Tools"
+ "version" : "5.503",
+ "x_module_name" : "MIME::Tools",
+ "x_serialization_backend" : "JSON::PP version 4.04"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MIME-tools-5.509/MYMETA.yml
new/MIME-tools-5.510/MYMETA.yml
--- old/MIME-tools-5.509/MYMETA.yml 2017-04-05 18:56:40.000000000 +0200
+++ new/MIME-tools-5.510/MYMETA.yml 2022-07-06 16:19:03.000000000 +0200
@@ -1,7 +1,7 @@
---
abstract: 'Tools to manipulate MIME messages'
author:
- - "Eryq <[email protected]>, Dianne Skoll <[email protected]>, Dave
O'Neill <[email protected]>"
+ - "Eryq <[email protected]>, David F. Skoll <[email protected]>, Dave
O'Neill <[email protected]>"
build_requires:
ExtUtils::MakeMaker: '6.59'
Test::Deep: '0'
@@ -9,7 +9,7 @@
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 0
-generated_by: 'Module::Install version 1.14, CPAN::Meta::Converter version
2.142690'
+generated_by: 'Module::Install version 1.00, CPAN::Meta::Converter version
2.150010'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -36,5 +36,6 @@
perl: '5.008'
resources:
license: http://dev.perl.org/licenses/
-version: '5.508'
+version: '5.503'
x_module_name: MIME::Tools
+x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MIME-tools-5.509/Makefile.PL
new/MIME-tools-5.510/Makefile.PL
--- old/MIME-tools-5.509/Makefile.PL 2017-04-03 16:56:40.000000000 +0200
+++ new/MIME-tools-5.510/Makefile.PL 2022-07-06 16:06:36.000000000 +0200
@@ -6,7 +6,7 @@
name 'MIME-tools';
module_name 'MIME::Tools';
version_from 'lib/MIME/Tools.pm';
-author q{Eryq <[email protected]>, Dianne 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.509/README new/MIME-tools-5.510/README
--- old/MIME-tools-5.509/README 2015-06-19 15:22:05.000000000 +0200
+++ new/MIME-tools-5.510/README 2022-07-06 16:06:08.000000000 +0200
@@ -642,23 +642,20 @@
TERMS AND CONDITIONS
Eryq ([email protected]), ZeeGee Software Inc (http://www.zeegee.com).
- Dianne Skoll ([email protected]) http://www.roaringpenguin.com
+ Dianne Skoll ([email protected])
Copyright (c) 1998, 1999 by ZeeGee Software Inc (www.zeegee.com).
Copyright (c) 2004 by Roaring Penguin Software Inc (www.roaringpenguin.com)
+ Copyright (c) 2022 by Dianne Skoll
All rights reserved. This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself. See the COPYING
file in the distribution for details.
SUPPORT
- Please email me directly with questions/problems (see AUTHOR below).
- If you want to be placed on an email distribution list (not a mailing
- list!) for MIME-tools, and receive bug reports, patches, and updates as
- to when new MIME-tools releases are planned, just email me and say so.
- If your project is using MIME-tools, it might not be a bad idea to find
- out about those bugs *before* they become problems...
+ Please file bug reports via rt.cpan.org.
+
AUTHOR
MIME-tools was created by:
@@ -673,6 +670,8 @@
(2.0): Halloween 1996. Released as MIME-tools (4.0): Christmas 1997.
Released as MIME-tools (5.0): Mother's Day 2000.
+ MIME-tools is currently maintained by Dianne Skoll
<[email protected]>
+
ACKNOWLEDGMENTS
This kit would not have been possible but for the direct contributions
of the following:
@@ -711,9 +710,7 @@
me, and I'll put you in.
SEE ALSO
- At the time of this writing the MIME-tools homepage was
- http://www.mimedefang.org/static/mime-tools.php.
- Check there for updates and support.
+ Search CPAN for MIME::tools.
Users of this toolkit may wish to read the documentation of Mail::Header
and Mail::Internet.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MIME-tools-5.509/lib/MIME/Body.pm
new/MIME-tools-5.510/lib/MIME/Body.pm
--- old/MIME-tools-5.509/lib/MIME/Body.pm 2017-04-05 18:55:57.000000000
+0200
+++ new/MIME-tools-5.510/lib/MIME/Body.pm 2022-07-06 16:04:46.000000000
+0200
@@ -141,7 +141,7 @@
use IO::File;
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.509";
+$VERSION = "5.510";
#------------------------------
@@ -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 (F<[email protected]>)
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.509/lib/MIME/Decoder/Base64.pm
new/MIME-tools-5.510/lib/MIME/Decoder/Base64.pm
--- old/MIME-tools-5.509/lib/MIME/Decoder/Base64.pm 2017-04-05
19:53:05.000000000 +0200
+++ new/MIME-tools-5.510/lib/MIME/Decoder/Base64.pm 2022-07-06
16:04:46.000000000 +0200
@@ -60,7 +60,7 @@
@ISA = qw(MIME::Decoder);
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.509";
+$VERSION = "5.510";
### 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.509/lib/MIME/Decoder/BinHex.pm
new/MIME-tools-5.510/lib/MIME/Decoder/BinHex.pm
--- old/MIME-tools-5.509/lib/MIME/Decoder/BinHex.pm 2017-04-05
18:55:58.000000000 +0200
+++ new/MIME-tools-5.510/lib/MIME/Decoder/BinHex.pm 2022-07-06
16:04:46.000000000 +0200
@@ -47,7 +47,7 @@
@ISA = qw(MIME::Decoder);
# The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.509";
+$VERSION = "5.510";
#------------------------------
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MIME-tools-5.509/lib/MIME/Decoder/Binary.pm
new/MIME-tools-5.510/lib/MIME/Decoder/Binary.pm
--- old/MIME-tools-5.509/lib/MIME/Decoder/Binary.pm 2017-04-05
18:55:58.000000000 +0200
+++ new/MIME-tools-5.510/lib/MIME/Decoder/Binary.pm 2022-07-06
16:04:46.000000000 +0200
@@ -47,7 +47,7 @@
@ISA = qw(MIME::Decoder);
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.509";
+$VERSION = "5.510";
### Buffer length:
my $BUFLEN = 8192;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MIME-tools-5.509/lib/MIME/Decoder/Gzip64.pm
new/MIME-tools-5.510/lib/MIME/Decoder/Gzip64.pm
--- old/MIME-tools-5.509/lib/MIME/Decoder/Gzip64.pm 2017-04-05
18:55:58.000000000 +0200
+++ new/MIME-tools-5.510/lib/MIME/Decoder/Gzip64.pm 2022-07-06
16:04:46.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.509";
+$VERSION = "5.510";
# How to compress stdin to stdout:
$GZIP = "gzip -c";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MIME-tools-5.509/lib/MIME/Decoder/NBit.pm
new/MIME-tools-5.510/lib/MIME/Decoder/NBit.pm
--- old/MIME-tools-5.509/lib/MIME/Decoder/NBit.pm 2017-04-05
18:55:58.000000000 +0200
+++ new/MIME-tools-5.510/lib/MIME/Decoder/NBit.pm 2022-07-06
16:04:46.000000000 +0200
@@ -98,7 +98,7 @@
@ISA = qw(MIME::Decoder);
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.509";
+$VERSION = "5.510";
### 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.509/lib/MIME/Decoder/QuotedPrint.pm
new/MIME-tools-5.510/lib/MIME/Decoder/QuotedPrint.pm
--- old/MIME-tools-5.509/lib/MIME/Decoder/QuotedPrint.pm 2017-04-05
18:55:58.000000000 +0200
+++ new/MIME-tools-5.510/lib/MIME/Decoder/QuotedPrint.pm 2022-07-06
16:04:46.000000000 +0200
@@ -58,7 +58,7 @@
@ISA = qw(MIME::Decoder);
# The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.509";
+$VERSION = "5.510";
#------------------------------
# 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.509/lib/MIME/Decoder/UU.pm
new/MIME-tools-5.510/lib/MIME/Decoder/UU.pm
--- old/MIME-tools-5.509/lib/MIME/Decoder/UU.pm 2017-04-05 19:53:21.000000000
+0200
+++ new/MIME-tools-5.510/lib/MIME/Decoder/UU.pm 2022-07-06 16:04:46.000000000
+0200
@@ -48,7 +48,7 @@
@ISA = qw(MIME::Decoder);
# The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.509";
+$VERSION = "5.510";
#------------------------------
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MIME-tools-5.509/lib/MIME/Decoder.pm
new/MIME-tools-5.510/lib/MIME/Decoder.pm
--- old/MIME-tools-5.509/lib/MIME/Decoder.pm 2017-04-05 18:55:57.000000000
+0200
+++ new/MIME-tools-5.510/lib/MIME/Decoder.pm 2022-07-06 16:04:46.000000000
+0200
@@ -126,7 +126,7 @@
);
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.509";
+$VERSION = "5.510";
### Me:
my $ME = 'MIME::Decoder';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MIME-tools-5.509/lib/MIME/Entity.pm
new/MIME-tools-5.510/lib/MIME/Entity.pm
--- old/MIME-tools-5.509/lib/MIME/Entity.pm 2017-04-05 20:03:05.000000000
+0200
+++ new/MIME-tools-5.510/lib/MIME/Entity.pm 2022-07-06 16:08:24.000000000
+0200
@@ -255,7 +255,7 @@
#------------------------------
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.509";
+$VERSION = "5.510";
### Boundary counter:
my $BCount = 0;
@@ -495,6 +495,11 @@
the actual scalar). The body is opened on the data using
MIME::Body::InCore.
+Note that for text parts, the Data scalar or array is assumed to be
+encoded in a suitable character encoding (as if by C<Encode::encode>)
+rather than a native Perl string. The encoding you use must, of
+course, match the C<charset> option of the C<MIME-Type> header.
+
=item Description
I<Optional.>
@@ -2264,7 +2269,7 @@
=head1 AUTHOR
Eryq (F<[email protected]>), ZeeGee Software Inc (F<http://www.zeegee.com>).
-Dianne Skoll ([email protected]) http://www.roaringpenguin.com
+Dianne Skoll ([email protected])
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.509/lib/MIME/Field/ConTraEnc.pm
new/MIME-tools-5.510/lib/MIME/Field/ConTraEnc.pm
--- old/MIME-tools-5.509/lib/MIME/Field/ConTraEnc.pm 2017-04-05
18:55:58.000000000 +0200
+++ new/MIME-tools-5.510/lib/MIME/Field/ConTraEnc.pm 2022-07-06
16:06:15.000000000 +0200
@@ -35,7 +35,7 @@
=head1 AUTHOR
Eryq (F<[email protected]>), ZeeGee Software Inc (F<http://www.zeegee.com>).
-Dianne Skoll ([email protected]) http://www.roaringpenguin.com
+Dianne Skoll ([email protected])
=cut
@@ -47,7 +47,7 @@
@ISA = qw(MIME::Field::ParamVal);
# The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.509";
+$VERSION = "5.510";
# Install it:
bless([])->register('Content-transfer-encoding');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MIME-tools-5.509/lib/MIME/Field/ContDisp.pm
new/MIME-tools-5.510/lib/MIME/Field/ContDisp.pm
--- old/MIME-tools-5.509/lib/MIME/Field/ContDisp.pm 2017-04-05
18:55:58.000000000 +0200
+++ new/MIME-tools-5.510/lib/MIME/Field/ContDisp.pm 2022-07-06
16:08:29.000000000 +0200
@@ -35,7 +35,7 @@
=head1 AUTHOR
Eryq (F<[email protected]>), ZeeGee Software Inc (F<http://www.zeegee.com>).
-Dianne Skoll ([email protected]) http://www.roaringpenguin.com
+Dianne Skoll ([email protected])
=cut
@@ -48,7 +48,7 @@
@ISA = qw(MIME::Field::ParamVal);
# The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.509";
+$VERSION = "5.510";
# Install it:
bless([])->register('Content-disposition');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MIME-tools-5.509/lib/MIME/Field/ContType.pm
new/MIME-tools-5.510/lib/MIME/Field/ContType.pm
--- old/MIME-tools-5.509/lib/MIME/Field/ContType.pm 2017-04-05
18:55:58.000000000 +0200
+++ new/MIME-tools-5.510/lib/MIME/Field/ContType.pm 2022-07-06
16:07:31.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.509";
+$VERSION = "5.510";
# Install it:
bless([])->register('Content-type');
@@ -186,7 +186,7 @@
=head1 AUTHOR
Eryq (F<[email protected]>), ZeeGee Software Inc (F<http://www.zeegee.com>).
-Dianne Skoll ([email protected]) http://www.roaringpenguin.com
+Dianne Skoll ([email protected])
=cut
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MIME-tools-5.509/lib/MIME/Field/ParamVal.pm
new/MIME-tools-5.510/lib/MIME/Field/ParamVal.pm
--- old/MIME-tools-5.509/lib/MIME/Field/ParamVal.pm 2017-04-05
18:55:58.000000000 +0200
+++ new/MIME-tools-5.510/lib/MIME/Field/ParamVal.pm 2022-07-06
16:04:46.000000000 +0200
@@ -80,7 +80,7 @@
#------------------------------
# The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.509";
+$VERSION = "5.510";
#------------------------------
@@ -256,8 +256,10 @@
# cut it off at the first non-token char. CPAN RT #105455
$badtoken =~ /^($TOKEN)*/;
$badtoken = $1;
- # Cut it off at first whitespace too
- $badtoken =~ s/\s.*//;
+ if (defined($badtoken)) {
+ # Cut it off at first whitespace too
+ $badtoken =~ s/\s.*//;
+ }
}
$val = defined($qstr) ? $qstr :
(defined($enctoken) ? $enctoken :
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MIME-tools-5.509/lib/MIME/Head.pm
new/MIME-tools-5.510/lib/MIME/Head.pm
--- old/MIME-tools-5.509/lib/MIME/Head.pm 2017-04-05 19:36:08.000000000
+0200
+++ new/MIME-tools-5.510/lib/MIME/Head.pm 2022-07-06 16:08:13.000000000
+0200
@@ -138,7 +138,7 @@
#------------------------------
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.509";
+$VERSION = "5.510";
### Sanity (we put this test after our own version, for CPAN::):
use Mail::Header 1.06 ();
@@ -917,7 +917,7 @@
=head1 AUTHOR
Eryq (F<[email protected]>), ZeeGee Software Inc (F<http://www.zeegee.com>).
-Dianne Skoll ([email protected]) http://www.roaringpenguin.com
+Dianne Skoll ([email protected])
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.509/lib/MIME/Parser/Filer.pm
new/MIME-tools-5.510/lib/MIME/Parser/Filer.pm
--- old/MIME-tools-5.509/lib/MIME/Parser/Filer.pm 2013-08-13
17:18:53.000000000 +0200
+++ new/MIME-tools-5.510/lib/MIME/Parser/Filer.pm 2021-09-17
20:28:30.000000000 +0200
@@ -251,6 +251,18 @@
}
#------------------------------
+# My PID, but untainted
+#
+sub untainted_pid
+{
+ if ($$ =~ /^(\d+)$/) {
+ return $1;
+ }
+ # Can't happen...
+ return "0";
+}
+
+#------------------------------
#
# cleanup_dir
#
@@ -556,7 +568,7 @@
### Get a prefix:
++$GFileNo;
- return ($self->output_prefix . "-$$-$GFileNo$ext");
+ return ($self->output_prefix . "-" . untainted_pid() . "-$GFileNo$ext");
}
#------------------------------
@@ -689,7 +701,13 @@
"I'm ignoring it and supplying my own.");
$fname = $self->output_filename($head);
}
+ } else {
+ # Untaint $fname... we know it's not evil
+ if ($fname =~ /^(.*)$/) {
+ $fname = $1;
+ }
}
+
$self->debug("planning to use '$fname'");
### Resolve collisions and return final path:
@@ -892,7 +910,8 @@
### Determine the subdirectory of their base to use:
my $subdir = (defined($self->{MPFU_DirName})
? $self->{MPFU_DirName}
- : ("msg-".scalar(time)."-$$-".$GSubdirNo++));
+ : ("msg-" . scalar(time) . "-" .
+ MIME::Parser::Filer::untainted_pid() . "-" .
$GSubdirNo++));
$self->debug("subdir = $subdir");
### Determine full path to the per-message output directory:
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MIME-tools-5.509/lib/MIME/Parser.pm
new/MIME-tools-5.510/lib/MIME/Parser.pm
--- old/MIME-tools-5.509/lib/MIME/Parser.pm 2017-04-05 18:55:57.000000000
+0200
+++ new/MIME-tools-5.510/lib/MIME/Parser.pm 2022-07-06 16:07:45.000000000
+0200
@@ -153,7 +153,7 @@
#------------------------------
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.509";
+$VERSION = "5.510";
### How to catenate:
$CAT = '/bin/cat';
@@ -636,6 +636,10 @@
($hdr_rdr->eos_type eq 'DONE') or
$self->error("unexpected end of header\n");
+
+ ### If header line begins with a UTF-8 Byte-Order mark, remove it.
+ $headstr =~ s/^\x{EF}\x{BB}\x{BF}//;
+
### Extract the header (note that zero-size headers are admissible!):
open(my $readfh, '<:scalar', \$headstr) or die $!;
$head->read( $readfh );
@@ -2001,7 +2005,7 @@
=head1 AUTHOR
Eryq (F<[email protected]>), ZeeGee Software Inc (F<http://www.zeegee.com>).
-Dianne Skoll ([email protected]) http://www.roaringpenguin.com
+Dianne Skoll ([email protected])
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.509/lib/MIME/Tools.pm
new/MIME-tools-5.510/lib/MIME/Tools.pm
--- old/MIME-tools-5.509/lib/MIME/Tools.pm 2017-04-05 18:55:55.000000000
+0200
+++ new/MIME-tools-5.510/lib/MIME/Tools.pm 2022-07-06 16:08:07.000000000
+0200
@@ -28,7 +28,7 @@
Exporter::export_ok_tags('config', 'msgs', 'msgtypes', 'utils');
# The TOOLKIT version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.509";
+$VERSION = "5.510";
# Configuration (do NOT alter this directly)...
# All legal CONFIG vars *must* be in here, even if only to be set to undef:
@@ -988,10 +988,11 @@
=head1 AUTHOR
Eryq (F<[email protected]>), ZeeGee Software Inc (F<http://www.zeegee.com>).
-Dianne Skoll (F<[email protected]>) F<http://www.roaringpenguin.com>.
+Dianne Skoll (F<[email protected]>)
Copyright (c) 1998, 1999 by ZeeGee Software Inc (www.zeegee.com).
-Copyright (c) 2004 by Roaring Penguin Software Inc (www.roaringpenguin.com)
+Copyright (c) 2004 by Roaring Penguin Software Inc
+Copyright (c) 2022 by Dianne Skoll
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.509/lib/MIME/WordDecoder.pm
new/MIME-tools-5.510/lib/MIME/WordDecoder.pm
--- old/MIME-tools-5.509/lib/MIME/WordDecoder.pm 2015-06-19
15:22:05.000000000 +0200
+++ new/MIME-tools-5.510/lib/MIME/WordDecoder.pm 2022-07-06
16:08:18.000000000 +0200
@@ -654,7 +654,7 @@
=head1 AUTHOR
Eryq (F<[email protected]>), ZeeGee Software Inc (F<http://www.zeegee.com>).
-Dianne Skoll ([email protected]) http://www.roaringpenguin.com
+Dianne Skoll ([email protected])
=cut
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MIME-tools-5.509/lib/MIME/Words.pm
new/MIME-tools-5.510/lib/MIME/Words.pm
--- old/MIME-tools-5.509/lib/MIME/Words.pm 2017-04-05 18:55:57.000000000
+0200
+++ new/MIME-tools-5.510/lib/MIME/Words.pm 2022-07-06 16:08:34.000000000
+0200
@@ -94,7 +94,7 @@
#------------------------------
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.509";
+$VERSION = "5.510";
### 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>).
-Dianne Skoll ([email protected]) http://www.roaringpenguin.com
+Dianne Skoll ([email protected])
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.509/t/Body.t
new/MIME-tools-5.510/t/Body.t
--- old/MIME-tools-5.509/t/Body.t 2015-06-19 15:22:05.000000000 +0200
+++ new/MIME-tools-5.510/t/Body.t 2021-09-17 20:30:07.000000000 +0200
@@ -89,6 +89,10 @@
{
my $cwd = cwd();
+ # Untaint
+ if ($cwd =~ /^(.*)$/) {
+ $cwd = $1;
+ }
ok( chdir './testout', 'chdir to ./testout to avoid clutter');
eval {
my $body = MIME::Body::File->new(" bad file ");
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MIME-tools-5.509/t/ticket-119568.t
new/MIME-tools-5.510/t/ticket-119568.t
--- old/MIME-tools-5.509/t/ticket-119568.t 2017-04-05 20:02:27.000000000
+0200
+++ new/MIME-tools-5.510/t/ticket-119568.t 2022-07-06 16:16:38.000000000
+0200
@@ -7,37 +7,37 @@
use MIME::Parser;
use lib qw( ./t );
-my $e = MIME::Entity->build(From => '[email protected]',
+my $e = MIME::Entity->build(From => '[email protected]',
To => '[email protected]',
Subject => 'End-of-line test',
Data => ["Line 1\n", "Line 2\n"],);
my $str = $e->as_string();
-is ($str, "Content-Type: text/plain\nContent-Disposition:
inline\nContent-Transfer-Encoding: binary\nMIME-Version: 1.0\nX-Mailer:
MIME-tools 5.509 (Entity 5.509)\nFrom: dfs\@roaringpenguin.com\nTo:
dfs2\@roaringpenguin.com\nSubject: End-of-line test\n\nLine 1\nLine 2\n", 'Got
expected line endings');
+is ($str, "Content-Type: text/plain\nContent-Disposition:
inline\nContent-Transfer-Encoding: binary\nMIME-Version: 1.0\nX-Mailer:
MIME-tools 5.510 (Entity 5.510)\nFrom: dianne\@skoll.ca\nTo:
dfs2\@roaringpenguin.com\nSubject: End-of-line test\n\nLine 1\nLine 2\n", 'Got
expected line endings');
my $delim = "\r\n";
$MIME::Entity::BOUNDARY_DELIMITER = $delim;
-$e = MIME::Entity->build(From => '[email protected]',
+$e = MIME::Entity->build(From => '[email protected]',
To => '[email protected]',
Subject => 'End-of-line test',
Data => ["Line 1$delim", "Line 2$delim"],);
$str = $e->as_string();
-is ($str, "Content-Type: text/plain${delim}Content-Disposition:
inline${delim}Content-Transfer-Encoding: binary${delim}MIME-Version:
1.0${delim}X-Mailer: MIME-tools 5.509 (Entity 5.509)${delim}From:
dfs\@roaringpenguin.com${delim}To: dfs2\@roaringpenguin.com${delim}Subject:
End-of-line test${delim}${delim}Line 1${delim}Line 2${delim}", 'Got expected
line endings');
+is ($str, "Content-Type: text/plain${delim}Content-Disposition:
inline${delim}Content-Transfer-Encoding: binary${delim}MIME-Version:
1.0${delim}X-Mailer: MIME-tools 5.510 (Entity 5.510)${delim}From:
dianne\@skoll.ca${delim}To: dfs2\@roaringpenguin.com${delim}Subject:
End-of-line test${delim}${delim}Line 1${delim}Line 2${delim}", 'Got expected
line endings');
$e->attach(Data => ["More Text$delim"], Type => "text/plain");
-$e = MIME::Entity->build(From => '[email protected]',
+$e = MIME::Entity->build(From => '[email protected]',
To => '[email protected]',
Subject => 'End-of-line test',
Type => 'multipart/mixed', Boundary => 'foo');
$e->attach(Data => ["Text$delim"], Type => "text/plain");
$e->attach(Data => ["More Text$delim"], Type => "text/plain");
$str = $e->as_string();
-is ($str, "Content-Type: multipart/mixed;
boundary=\"foo\"${delim}Content-Transfer-Encoding: binary${delim}MIME-Version:
1.0${delim}X-Mailer: MIME-tools 5.509 (Entity 5.509)${delim}From:
dfs\@roaringpenguin.com${delim}To: dfs2\@roaringpenguin.com${delim}Subject:
End-of-line test${delim}${delim}This is a multi-part message in MIME
format...${delim}${delim}--foo${delim}Content-Type:
text/plain${delim}Content-Disposition: inline${delim}Content-Transfer-Encoding:
binary${delim}${delim}Text${delim}${delim}--foo${delim}Content-Type:
text/plain${delim}Content-Disposition: inline${delim}Content-Transfer-Encoding:
binary${delim}${delim}More Text${delim}${delim}--foo--${delim}", 'Got expected
line endings');
+is ($str, "Content-Type: multipart/mixed;
boundary=\"foo\"${delim}Content-Transfer-Encoding: binary${delim}MIME-Version:
1.0${delim}X-Mailer: MIME-tools 5.510 (Entity 5.510)${delim}From:
dianne\@skoll.ca${delim}To: dfs2\@roaringpenguin.com${delim}Subject:
End-of-line test${delim}${delim}This is a multi-part message in MIME
format...${delim}${delim}--foo${delim}Content-Type:
text/plain${delim}Content-Disposition: inline${delim}Content-Transfer-Encoding:
binary${delim}${delim}Text${delim}${delim}--foo${delim}Content-Type:
text/plain${delim}Content-Disposition: inline${delim}Content-Transfer-Encoding:
binary${delim}${delim}More Text${delim}${delim}--foo--${delim}", 'Got expected
line endings');
-$e = MIME::Entity->build(From => '[email protected]',
+$e = MIME::Entity->build(From => '[email protected]',
To => '[email protected]',
Subject => 'End-of-line test',
Type => 'multipart/mixed', Boundary => 'foo');
@@ -45,5 +45,5 @@
$e->attach(Data => ["More Text\n", 'LongLine' x 120], Type => "text/plain",
Encoding => 'Base64');
$str = $e->as_string();
-is ($str, "Content-Type: multipart/mixed;
boundary=\"foo\"${delim}Content-Transfer-Encoding: binary${delim}MIME-Version:
1.0${delim}X-Mailer: MIME-tools 5.509 (Entity 5.509)${delim}From:
dfs\@roaringpenguin.com${delim}To: dfs2\@roaringpenguin.com${delim}Subject:
End-of-line test${delim}${delim}This is a multi-part message in MIME
format...${delim}${delim}--foo${delim}Content-Type:
text/plain${delim}Content-Disposition: inline${delim}Content-Transfer-Encoding:
Base64${delim}${delim}VGV4dAo=${delim}${delim}--foo${delim}Content-Type:
text/plain${delim}Content-Disposition: inline${delim}Content-Transfer-Encoding:
Base64${delim}${delim}TW9yZSBUZXh0CkxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9u${delim}Z0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5l${delim}TG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdM${delim}aW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxv${delim}bmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGlu${delim}ZUxvbmdMaW5lTG9uZ0
xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25n${delim}TGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVM${delim}b25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xp${delim}bmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9u${delim}Z0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5l${delim}TG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdM${delim}aW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxv${delim}bmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGlu${delim}ZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25n${delim}TGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVM${delim}b25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xp${delim}bmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9u${delim}Z0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5l${delim}TG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdM${delim}aW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxv${d
elim}bmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGlu${delim}ZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZQ==${delim}${delim}--foo--${delim}",
'Got expected line endings for Base64 encoding');
+is ($str, "Content-Type: multipart/mixed;
boundary=\"foo\"${delim}Content-Transfer-Encoding: binary${delim}MIME-Version:
1.0${delim}X-Mailer: MIME-tools 5.510 (Entity 5.510)${delim}From:
dianne\@skoll.ca${delim}To: dfs2\@roaringpenguin.com${delim}Subject:
End-of-line test${delim}${delim}This is a multi-part message in MIME
format...${delim}${delim}--foo${delim}Content-Type:
text/plain${delim}Content-Disposition: inline${delim}Content-Transfer-Encoding:
Base64${delim}${delim}VGV4dAo=${delim}${delim}--foo${delim}Content-Type:
text/plain${delim}Content-Disposition: inline${delim}Content-Transfer-Encoding:
Base64${delim}${delim}TW9yZSBUZXh0CkxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9u${delim}Z0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5l${delim}TG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdM${delim}aW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxv${delim}bmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGlu${delim}ZUxvbmdMaW5lTG9uZ0xpbmVMb
25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25n${delim}TGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVM${delim}b25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xp${delim}bmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9u${delim}Z0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5l${delim}TG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdM${delim}aW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxv${delim}bmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGlu${delim}ZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25n${delim}TGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVM${delim}b25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xp${delim}bmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9u${delim}Z0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5l${delim}TG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdM${delim}aW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZUxv${delim}bm
dMaW5lTG9uZ0xpbmVMb25nTGluZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGlu${delim}ZUxvbmdMaW5lTG9uZ0xpbmVMb25nTGluZQ==${delim}${delim}--foo--${delim}",
'Got expected line endings for Base64 encoding');
