r69387 - in /trunk/libmime-tools-perl/debian: changelog patches/fix-614545-MIME-Words-decode-newlines.patch patches/series

[carnil at users.alioth.debian.org]

Author: carnil
Date: Wed Feb 23 14:00:00 2011
New Revision: 69387

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=69387
Log:
Add fix-614545-MIME-Words-decode-newlines.patch patch to fix decoding
newlines in input of MIME::Words. (Closes: #614545). 

Added:
    trunk/libmime-tools-perl/debian/patches/fix-614545-MIME-Words-decode-newlines.patch
Modified:
    trunk/libmime-tools-perl/debian/changelog
    trunk/libmime-tools-perl/debian/patches/series

Modified: trunk/libmime-tools-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-tools-perl/debian/changelog?rev=69387&op=diff
==============================================================================
--- trunk/libmime-tools-perl/debian/changelog (original)
+++ trunk/libmime-tools-perl/debian/changelog Wed Feb 23 14:00:00 2011
@@ -1,3 +1,10 @@
+libmime-tools-perl (5.501-2) unstable; urgency=low
+
+  * Add fix-614545-MIME-Words-decode-newlines.patch patch to fix decoding
+    newlines in input of MIME::Words. (Closes: #614545). 
+
+ -- Salvatore Bonaccorso <carnil at debian.org>  Wed, 23 Feb 2011 14:44:41 +0100
+
 libmime-tools-perl (5.501-1) unstable; urgency=low
 
   * New upstream release

Added: trunk/libmime-tools-perl/debian/patches/fix-614545-MIME-Words-decode-newlines.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-tools-perl/debian/patches/fix-614545-MIME-Words-decode-newlines.patch?rev=69387&op=file
==============================================================================
--- trunk/libmime-tools-perl/debian/patches/fix-614545-MIME-Words-decode-newlines.patch (added)
+++ trunk/libmime-tools-perl/debian/patches/fix-614545-MIME-Words-decode-newlines.patch Wed Feb 23 14:00:00 2011
@@ -1,0 +1,47 @@
+Description: Fix problem in MIME::Words decoding newlines
+Origin: vendor
+Bug: https://rt.cpan.org/Ticket/Display.html?id=66025
+Bug-Debian: http://bugs.debian.org/614545
+Forwarded: not-needed
+Author: Salvatore Bonaccorso <carnil at debian.org>
+Last-Update: 2011-02-23
+
+diff --git a/MANIFEST b/MANIFEST
+index 10cefc7..e125890 100644
+--- a/MANIFEST
++++ b/MANIFEST
+@@ -75,6 +75,7 @@ t/ticket-43439.t
+ t/ticket-52924.t
+ t/ticket-60931.t
+ t/ticket-65681.t
++t/ticket-66025.t
+ t/WordDecoder.t
+ t/WordEncoder.t
+ t/Words.t
+diff --git a/lib/MIME/Words.pm b/lib/MIME/Words.pm
+index e09a2ec..47a4f6a 100644
+--- a/lib/MIME/Words.pm
++++ b/lib/MIME/Words.pm
+@@ -215,7 +215,7 @@ sub decode_mimewords {
+ 			 (.*?    #   shortest possible string,
+ 			  \n*)             #   followed by 0 or more NLs,
+ 		         (?=(\Z|=\?))      # terminated by "=?" or EOS
+-			}xg) {
++			}sxg) {
+ 	    length($1) or die "MIME::Words: internal logic err: empty token\n";
+ 	    push @tokens, [$1];
+ 	    next;
+diff --git a/t/ticket-66025.t b/t/ticket-66025.t
+new file mode 100644
+index 0000000..f6c8fa3
+--- /dev/null
++++ b/t/ticket-66025.t
+@@ -0,0 +1,8 @@
++use Test::More tests => 1;
++use Test::Deep;
++
++use MIME::Words;
++
++cmp_deeply(MIME::Words::decode_mimewords("\nx"),
++	   ["\nx"],
++	   "Fix for ticket #66025 passes");

Modified: trunk/libmime-tools-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-tools-perl/debian/patches/series?rev=69387&op=diff
==============================================================================
--- trunk/libmime-tools-perl/debian/patches/series (original)
+++ trunk/libmime-tools-perl/debian/patches/series Wed Feb 23 14:00:00 2011
@@ -1,1 +1,2 @@
 fix-spelling.patch
+fix-614545-MIME-Words-decode-newlines.patch