fix regex. requires perl 5.10.0

metacpan · Apr 12, 2011 · 4768471 · 4768471
1 parent c85e286
commit 4768471
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/Makefile.PL b/Makefile.PL
@@ -4,7 +4,7 @@ if ( -e 'MANIFEST.SKIP' ) {
     system( 'pod2text lib/CPAN/Changes.pm > README' );
 }
 
-perl_version '5.008';
+perl_version '5.010';
 
 name 'CPAN-Changes';
 all_from 'lib/CPAN/Changes.pm';

diff --git a/lib/CPAN/Changes.pm b/lib/CPAN/Changes.pm
@@ -114,7 +114,7 @@ sub load_string {
                 }
 
                 # start with W3CDTF, ignore rest
-                elsif ( $d =~ m{^($W3CDTF_REGEX)(?: \D+)$}) {
+                elsif ( $d =~ m{^($W3CDTF_REGEX)}p ) {
                     $d = ${^MATCH};
                 }
             }

diff --git a/t/self.t b/t/self.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 18;
+use Test::More tests => 19;
 
 use_ok( 'CPAN::Changes' );