r74879 - in /trunk/libtest-spelling-perl/debian: changelog patches/ patches/dont_modify_constants.patch patches/series

[periapt-guest at users.alioth.debian.org]

Author: periapt-guest
Date: Wed May 25 22:16:00 2011
New Revision: 74879

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=74879
Log:
Stopped add_stopwords from modifying constants (Closes: #627963)

Added:
    trunk/libtest-spelling-perl/debian/patches/
    trunk/libtest-spelling-perl/debian/patches/dont_modify_constants.patch
    trunk/libtest-spelling-perl/debian/patches/series
Modified:
    trunk/libtest-spelling-perl/debian/changelog

Modified: trunk/libtest-spelling-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-spelling-perl/debian/changelog?rev=74879&op=diff
==============================================================================
--- trunk/libtest-spelling-perl/debian/changelog (original)
+++ trunk/libtest-spelling-perl/debian/changelog Wed May 25 22:16:00 2011
@@ -1,3 +1,9 @@
+libtest-spelling-perl (0.13-2) UNRELEASED; urgency=low
+
+  * Stopped add_stopwords from modifying constants (Closes: #627963)
+
+ -- Nicholas Bamber <nicholas at periapt.co.uk>  Wed, 25 May 2011 22:40:45 +0100
+
 libtest-spelling-perl (0.13-1) unstable; urgency=low
 
   [ Nathan Handler ]

Added: trunk/libtest-spelling-perl/debian/patches/dont_modify_constants.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-spelling-perl/debian/patches/dont_modify_constants.patch?rev=74879&op=file
==============================================================================
--- trunk/libtest-spelling-perl/debian/patches/dont_modify_constants.patch (added)
+++ trunk/libtest-spelling-perl/debian/patches/dont_modify_constants.patch Wed May 25 22:16:00 2011
@@ -1,0 +1,24 @@
+Author: Nicholas Bamber <nicholas at periapt.co.uk>
+Subject: codes tries to modify constant
+Bug: http://rt.cpan.org/Ticket/Display.html?id=68471
+Bug-Debian: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=627963
+Last-Update: 2011-05-25
+--- a/lib/Test/Spelling.pm
++++ b/lib/Test/Spelling.pm
+@@ -217,13 +217,9 @@
+ 
+ sub add_stopwords {
+     for my $word (@_) {
+-        # XXX: the processing this performs is to support "perl t/spell.t 2>>
+-        # t/spell.t" which is bunk. in the near future the processing here will
+-        # become more modern
+-        $word =~ s/^#?\s*//;
+-        $word =~ s/\s+$//;
+-        next if $word =~ /\s/ or $word =~ /:/;
+-        $Pod::Wordlist::Wordlist{$word} = 1;
++        if ($word =~ m{\A\#?\s*([^\s\:]+)\s*\z}xms) {
++            $Pod::Wordlist::Wordlist{$1} = 1;
++        }
+     }
+ }
+ 

Added: trunk/libtest-spelling-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-spelling-perl/debian/patches/series?rev=74879&op=file
==============================================================================
--- trunk/libtest-spelling-perl/debian/patches/series (added)
+++ trunk/libtest-spelling-perl/debian/patches/series Wed May 25 22:16:00 2011
@@ -1,0 +1,1 @@
+dont_modify_constants.patch