From: Tony Cook <tony@develop-help.com>
Date: Fri, 20 Jul 2012 12:18:45 +0000 (+0200)
Subject: Porting/corelist.pl didn't handle newlines in the pod version list
X-Git-Tag: v5.17.2~2
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/1c518207cea70cd96072eca5c393e160e87a8747

Porting/corelist.pl didn't handle newlines in the pod version list
---

diff --git a/Porting/corelist.pl b/Porting/corelist.pl
index 2324152..8887774 100755
--- a/Porting/corelist.pl
+++ b/Porting/corelist.pl
@@ -267,7 +267,7 @@ my $pod = join( '', <$pod_fh> );
 
 unless ( $pod =~ /and $perl_vstring releases of perl/ ) {
     warn "Adding $perl_vstring to the list of perl versions covered by Module::CoreList\n";
-    $pod =~ s/(currently covers (?:.*?))\s*and (.*?) releases of perl/$1, $2 and $perl_vstring releases of perl/ism;
+    $pod =~ s/(currently\s+covers\s+(?:.*?))\s*and\s+(.*?)\s+releases\s+of\s+perl/$1, $2 and $perl_vstring releases of perl/ism;
 }
 
 write_corelist($pod,$pod_file);