Mailinglist Archive: opensuse-commit (857 mails)
| < Previous | Next > |
commit perl-MIME-tools
- From: root@xxxxxxxxxxxxxxx (h_root)
- Date: Mon, 12 Nov 2007 21:58:16 +0100
- Message-id: <20071112205816.5F3A46780DE@xxxxxxxxxxxxxxx>
Hello community,
here is the log from the commit of package perl-MIME-tools
checked in at Mon Nov 12 21:58:16 CET 2007.
--------
--- perl-MIME-tools/perl-MIME-tools.changes 2007-10-08 09:53:30.000000000
+0200
+++ /mounts/work_src_done/STABLE/perl-MIME-tools/perl-MIME-tools.changes
2007-11-12 10:07:02.000000000 +0100
@@ -1,0 +2,6 @@
+Fri Nov 9 17:13:15 CET 2007 - anicka@xxxxxxx
+
+- update to 5.424
+ * (bugfix)lines in $entity->body() should be newline-terminated.
+
+-------------------------------------------------------------------
Old:
----
MIME-tools-5.423.tar.bz2
New:
----
MIME-tools-5.424.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-MIME-tools.spec ++++++
--- /var/tmp/diff_new_pack.E18021/_old 2007-11-12 21:57:51.000000000 +0100
+++ /var/tmp/diff_new_pack.E18021/_new 2007-11-12 21:57:51.000000000 +0100
@@ -1,5 +1,5 @@
#
-# spec file for package perl-MIME-tools (Version 5.423)
+# spec file for package perl-MIME-tools (Version 5.424)
#
# Copyright (c) 2007 SUSE LINUX Products GmbH, Nuernberg, Germany.
# This file and all modifications and additions to the pristine
@@ -21,7 +21,7 @@
Requires: perl = %{perl_version}
AutoReqProv: on
Summary: modules for parsing (and creating!) MIME entities
-Version: 5.423
+Version: 5.424
Release: 1
Source: MIME-tools-%{version}.tar.bz2
BuildRoot: %{_tmppath}/%{name}-%{version}-build
@@ -57,6 +57,9 @@
/var/adm/perl-modules/perl-MIME-tools
%doc ChangeLog COPYING examples INSTALLING MANIFEST README*
%changelog
+* Fri Nov 09 2007 - anicka@xxxxxxx
+- update to 5.424
+ * (bugfix)lines in $entity->body() should be newline-terminated.
* Mon Oct 08 2007 - anicka@xxxxxxx
- update to 5.423
* (enhancement) Use File::Temp for tempfile generation.
++++++ MIME-tools-5.423.tar.bz2 -> MIME-tools-5.424.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/MIME-tools-5.423/ChangeLog
new/MIME-tools-5.424/ChangeLog
--- old/MIME-tools-5.423/ChangeLog 2007-09-27 17:47:59.000000000 +0200
+++ new/MIME-tools-5.424/ChangeLog 2007-11-07 16:30:45.000000000 +0100
@@ -1,6 +1,13 @@
-5.433 2007-09-27 Dave O'Neill <dmo@xxxxxxxxxxxxxxxxxx>
+5.424 2007-11-07 David Skoll <dfs@xxxxxxxxxxxxxxxxxx>
- * VERSION 5.4.33 RELEASED
+ * VERSION 5.424 RELEASED
+
+ * (bugfix) [rt.cpan.org #29864] - lines in $entity->body() should be
+ newline-terminated.
+
+5.423 2007-09-27 Dave O'Neill <dmo@xxxxxxxxxxxxxxxxxx>
+
+ * VERSION 5.423 RELEASED
* (bugfix) Fix API regression - MIME::Entity::body() should return an
arrayref. Fixes RT 29643.
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/MIME-tools-5.423/lib/MIME/Body.pm
new/MIME-tools-5.424/lib/MIME/Body.pm
--- old/MIME-tools-5.423/lib/MIME/Body.pm 2007-09-27 17:46:42.000000000
+0200
+++ new/MIME-tools-5.424/lib/MIME/Body.pm 2007-11-07 16:31:05.000000000
+0100
@@ -141,7 +141,7 @@
use Carp;
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.423";
+$VERSION = "5.424";
#------------------------------
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/MIME-tools-5.423/lib/MIME/Decoder/Base64.pm
new/MIME-tools-5.424/lib/MIME/Decoder/Base64.pm
--- old/MIME-tools-5.423/lib/MIME/Decoder/Base64.pm 2007-09-27
17:46:42.000000000 +0200
+++ new/MIME-tools-5.424/lib/MIME/Decoder/Base64.pm 2007-11-07
16:31:05.000000000 +0100
@@ -55,7 +55,7 @@
@ISA = qw(MIME::Decoder);
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.423";
+$VERSION = "5.424";
### 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.423/lib/MIME/Decoder/Binary.pm
new/MIME-tools-5.424/lib/MIME/Decoder/Binary.pm
--- old/MIME-tools-5.423/lib/MIME/Decoder/Binary.pm 2007-09-27
17:46:42.000000000 +0200
+++ new/MIME-tools-5.424/lib/MIME/Decoder/Binary.pm 2007-11-07
16:31:05.000000000 +0100
@@ -41,7 +41,7 @@
@ISA = qw(MIME::Decoder);
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.423";
+$VERSION = "5.424";
### Buffer length:
my $BUFLEN = 8192;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/MIME-tools-5.423/lib/MIME/Decoder/BinHex.pm
new/MIME-tools-5.424/lib/MIME/Decoder/BinHex.pm
--- old/MIME-tools-5.423/lib/MIME/Decoder/BinHex.pm 2007-09-27
17:46:42.000000000 +0200
+++ new/MIME-tools-5.424/lib/MIME/Decoder/BinHex.pm 2007-11-07
16:31:05.000000000 +0100
@@ -42,7 +42,7 @@
@ISA = qw(MIME::Decoder);
# The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.423";
+$VERSION = "5.424";
#------------------------------
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/MIME-tools-5.423/lib/MIME/Decoder/Gzip64.pm
new/MIME-tools-5.424/lib/MIME/Decoder/Gzip64.pm
--- old/MIME-tools-5.423/lib/MIME/Decoder/Gzip64.pm 2007-09-27
17:46:42.000000000 +0200
+++ new/MIME-tools-5.424/lib/MIME/Decoder/Gzip64.pm 2007-11-07
16:31:05.000000000 +0100
@@ -58,7 +58,7 @@
@ISA = qw(MIME::Decoder::Base64);
# The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.423";
+$VERSION = "5.424";
# How to compress stdin to stdout:
$GZIP = "gzip -c";
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/MIME-tools-5.423/lib/MIME/Decoder/NBit.pm
new/MIME-tools-5.424/lib/MIME/Decoder/NBit.pm
--- old/MIME-tools-5.423/lib/MIME/Decoder/NBit.pm 2007-09-27
17:46:42.000000000 +0200
+++ new/MIME-tools-5.424/lib/MIME/Decoder/NBit.pm 2007-11-07
16:31:05.000000000 +0100
@@ -92,7 +92,7 @@
@ISA = qw(MIME::Decoder);
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.423";
+$VERSION = "5.424";
### 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.423/lib/MIME/Decoder/QuotedPrint.pm
new/MIME-tools-5.424/lib/MIME/Decoder/QuotedPrint.pm
--- old/MIME-tools-5.423/lib/MIME/Decoder/QuotedPrint.pm 2007-09-27
17:46:42.000000000 +0200
+++ new/MIME-tools-5.424/lib/MIME/Decoder/QuotedPrint.pm 2007-11-07
16:31:05.000000000 +0100
@@ -53,7 +53,7 @@
@ISA = qw(MIME::Decoder);
# The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.423";
+$VERSION = "5.424";
#------------------------------
# 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.423/lib/MIME/Decoder/UU.pm
new/MIME-tools-5.424/lib/MIME/Decoder/UU.pm
--- old/MIME-tools-5.423/lib/MIME/Decoder/UU.pm 2007-09-27 17:46:42.000000000
+0200
+++ new/MIME-tools-5.424/lib/MIME/Decoder/UU.pm 2007-11-07 16:31:05.000000000
+0100
@@ -44,7 +44,7 @@
@ISA = qw(MIME::Decoder);
# The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.423";
+$VERSION = "5.424";
#------------------------------
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/MIME-tools-5.423/lib/MIME/Decoder.pm
new/MIME-tools-5.424/lib/MIME/Decoder.pm
--- old/MIME-tools-5.423/lib/MIME/Decoder.pm 2007-09-27 17:46:42.000000000
+0200
+++ new/MIME-tools-5.424/lib/MIME/Decoder.pm 2007-11-07 16:31:05.000000000
+0100
@@ -125,7 +125,7 @@
);
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.423";
+$VERSION = "5.424";
### Me:
my $ME = 'MIME::Decoder';
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/MIME-tools-5.423/lib/MIME/Entity.pm
new/MIME-tools-5.424/lib/MIME/Entity.pm
--- old/MIME-tools-5.423/lib/MIME/Entity.pm 2007-09-27 17:46:42.000000000
+0200
+++ new/MIME-tools-5.424/lib/MIME/Entity.pm 2007-11-07 16:31:05.000000000
+0100
@@ -246,7 +246,7 @@
#------------------------------
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.423";
+$VERSION = "5.424";
### Boundary counter:
my $BCount = 0;
@@ -738,7 +738,9 @@
I<Instance method.>
Get the I<encoded> (transport-ready) body, as an array of lines.
-Returns an array reference.
+Returns an array reference. Each array entry is a newline-terminated
+line.
+
This is a read-only data structure: changing its contents will have
no effect. Its contents are identical to what is printed by
L<print_body()|/print_body>.
@@ -765,6 +767,9 @@
$self->print_body($fh);
close($fh);
my @ary = split(/\n/, $output);
+ # Each line needs the terminating newline
+ @ary = map { "$_\n" } @ary;
+
return \@ary;
}
}
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/MIME-tools-5.423/lib/MIME/Field/ContDisp.pm
new/MIME-tools-5.424/lib/MIME/Field/ContDisp.pm
--- old/MIME-tools-5.423/lib/MIME/Field/ContDisp.pm 2007-09-27
17:46:42.000000000 +0200
+++ new/MIME-tools-5.424/lib/MIME/Field/ContDisp.pm 2007-11-07
16:31:05.000000000 +0100
@@ -45,7 +45,7 @@
@ISA = qw(MIME::Field::ParamVal);
# The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.423";
+$VERSION = "5.424";
# Install it:
bless([])->register('Content-disposition');
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/MIME-tools-5.423/lib/MIME/Field/ConTraEnc.pm
new/MIME-tools-5.424/lib/MIME/Field/ConTraEnc.pm
--- old/MIME-tools-5.423/lib/MIME/Field/ConTraEnc.pm 2007-09-27
17:46:42.000000000 +0200
+++ new/MIME-tools-5.424/lib/MIME/Field/ConTraEnc.pm 2007-11-07
16:31:05.000000000 +0100
@@ -44,7 +44,7 @@
@ISA = qw(MIME::Field::ParamVal);
# The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.423";
+$VERSION = "5.424";
# Install it:
bless([])->register('Content-transfer-encoding');
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/MIME-tools-5.423/lib/MIME/Field/ContType.pm
new/MIME-tools-5.424/lib/MIME/Field/ContType.pm
--- old/MIME-tools-5.423/lib/MIME/Field/ContType.pm 2007-09-27
17:46:42.000000000 +0200
+++ new/MIME-tools-5.424/lib/MIME/Field/ContType.pm 2007-11-07
16:31:05.000000000 +0100
@@ -63,7 +63,7 @@
@ISA = qw(MIME::Field::ParamVal);
# The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.423";
+$VERSION = "5.424";
# Install it:
bless([])->register('Content-type');
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/MIME-tools-5.423/lib/MIME/Field/ParamVal.pm
new/MIME-tools-5.424/lib/MIME/Field/ParamVal.pm
--- old/MIME-tools-5.423/lib/MIME/Field/ParamVal.pm 2007-09-27
17:46:42.000000000 +0200
+++ new/MIME-tools-5.424/lib/MIME/Field/ParamVal.pm 2007-11-07
16:31:05.000000000 +0100
@@ -80,7 +80,7 @@
#------------------------------
# The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.423";
+$VERSION = "5.424";
#------------------------------
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/MIME-tools-5.423/lib/MIME/Head.pm
new/MIME-tools-5.424/lib/MIME/Head.pm
--- old/MIME-tools-5.423/lib/MIME/Head.pm 2007-09-27 17:46:42.000000000
+0200
+++ new/MIME-tools-5.424/lib/MIME/Head.pm 2007-11-07 16:31:05.000000000
+0100
@@ -137,7 +137,7 @@
#------------------------------
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.423";
+$VERSION = "5.424";
### Sanity (we put this test after our own version, for CPAN::):
use Mail::Header 1.06 ();
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/MIME-tools-5.423/lib/MIME/Parser.pm
new/MIME-tools-5.424/lib/MIME/Parser.pm
--- old/MIME-tools-5.423/lib/MIME/Parser.pm 2007-09-27 17:46:42.000000000
+0200
+++ new/MIME-tools-5.424/lib/MIME/Parser.pm 2007-11-07 16:31:05.000000000
+0100
@@ -180,7 +180,7 @@
#------------------------------
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.423";
+$VERSION = "5.424";
### How to catenate:
$CAT = '/bin/cat';
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/MIME-tools-5.423/lib/MIME/Tools.pm
new/MIME-tools-5.424/lib/MIME/Tools.pm
--- old/MIME-tools-5.423/lib/MIME/Tools.pm 2007-09-27 17:46:21.000000000
+0200
+++ new/MIME-tools-5.424/lib/MIME/Tools.pm 2007-11-07 16:30:56.000000000
+0100
@@ -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.423";
+$VERSION = "5.424";
# Configuration (do NOT alter this directly)...
# All legal CONFIG vars *must* be in here, even if only to be set to undef:
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/MIME-tools-5.423/lib/MIME/Words.pm
new/MIME-tools-5.424/lib/MIME/Words.pm
--- old/MIME-tools-5.423/lib/MIME/Words.pm 2007-09-27 17:46:42.000000000
+0200
+++ new/MIME-tools-5.424/lib/MIME/Words.pm 2007-11-07 16:31:05.000000000
+0100
@@ -94,7 +94,7 @@
#------------------------------
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.423";
+$VERSION = "5.424";
### Nonprintables (controls + x7F + 8bit):
my $NONPRINT = "\\x00-\\x1F\\x7F-\\xFF";
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/MIME-tools-5.423/MANIFEST new/MIME-tools-5.424/MANIFEST
--- old/MIME-tools-5.423/MANIFEST 2007-09-27 17:49:32.000000000 +0200
+++ new/MIME-tools-5.424/MANIFEST 2007-11-07 16:33:02.000000000 +0100
@@ -55,6 +55,7 @@
t/ParserEncoded.t
t/ParserPreamble.t
t/Ref.t
+t/Smtpsend.t
t/WordDecoder.t
t/Words.t
testin/ak-0696.msg
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/MIME-tools-5.423/META.yml new/MIME-tools-5.424/META.yml
--- old/MIME-tools-5.423/META.yml 2007-09-27 17:49:32.000000000 +0200
+++ new/MIME-tools-5.424/META.yml 2007-11-07 16:33:02.000000000 +0100
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: MIME-tools
-version: 5.423
+version: 5.424
abstract: Tools to manipulate MIME messages
license: perl
generated_by: ExtUtils::MakeMaker version 6.32
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/MIME-tools-5.423/t/Smtpsend.t
new/MIME-tools-5.424/t/Smtpsend.t
--- old/MIME-tools-5.423/t/Smtpsend.t 1970-01-01 01:00:00.000000000 +0100
+++ new/MIME-tools-5.424/t/Smtpsend.t 2007-11-06 22:13:18.000000000 +0100
@@ -0,0 +1,93 @@
+#!/usr/bin/perl -w
+use strict;
+use warnings;
+use Test::More tests => 9;
+
+use MIME::Tools;
+use MIME::Entity;
+
+use IO::Socket::INET;
+
+# Listen on port 5225 to pretend to be an SMTP server
+my $sock = IO::Socket::INET->new(Listen => 5,
+ LocalPort => 5225,
+ ReuseAddr => 1,
+ Type => SOCK_STREAM,
+ Proto => 'tcp');
+
+die("can't create socket: $!") unless $sock;
+
+my $top = MIME::Entity->build(
+ Type => 'multipart/mixed',
+ From => 'devnull@xxxxxxxxxxxxxxxxxx',
+ To => 'devnull@xxxxxxxxxxxxxxxxxx',
+ Subject => 'smtpsend test');
+$top->attach(
+ Data => 'plain',
+ Type => 'text/plain');
+
+my $pid = fork();
+if (!defined($pid)) {
+ die("fork() failed: $!");
+}
+
+if (!$pid) {
+ # In the child
+ $top->smtpsend(Host => '127.0.0.1',
+ Port => 5225);
+ exit(0);
+}
+
+# In the parent
+my $s = $sock->accept();
+$s->print("220 Go ahead\n");
+$s->flush();
+my $line = $s->getline();
+like($line, qr/^EHLO/i);
+$s->print("220 Hi there\n");
+$s->flush();
+
+$line = $s->getline();
+like($line, qr/^MAIL/i);
+$s->print("220 OK\n");
+$s->flush();
+
+$line = $s->getline();
+like($line, qr/^RCPT/i);
+$s->print("220 OK\n");
+$s->flush();
+
+$line = $s->getline();
+like($line, qr/^DATA/i);
+$s->print("311 Send it\n");
+$s->flush();
+
+my $body = '';
+while(<$s>) {
+ last if ($_ =~ /^\./);
+ $body .= $_;
+}
+
+$s->print("220 Got it all; thanks\n");
+$s->flush();
+
+$line = $s->getline();
+like($line, qr/^QUIT/i);
+$s->print("220 See ya\n");
+$s->flush();
+$s->close();
+
+my @lines = split("\n", $body);
+
+# Get the end of headers
+while($lines[0] ne "\r") {
+ shift(@lines);
+}
+shift(@lines);
+
+is(scalar(@lines), 9);
+is($lines[0], "This is a multi-part message in MIME format...\r");
+is($lines[3], "Content-Type: text/plain\r");
+is($lines[7], "plain\r");
+
+
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
---------------------------------------------------------------------
To unsubscribe, e-mail: opensuse-commit+unsubscribe@xxxxxxxxxxxx
For additional commands, e-mail: opensuse-commit+help@xxxxxxxxxxxx
| < Previous | Next > |