In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/15b6d28952b48c8ed88fac16969d1b010ac1f1ca?hp=c52cc3901b3c39000e84f4acdbc56b8512b3d214>
- Log ----------------------------------------------------------------- commit 15b6d28952b48c8ed88fac16969d1b010ac1f1ca Author: James E Keenan <[email protected]> Date: Mon Nov 14 17:22:22 2016 -0500 Account for possibility of DOS file endings. Although our source code (including this file) is supposed to have only Unix line endings, cloning, etc., can result in particular users having DOS line endings. Let's allow '\r\n' to avoid spurious testing or installation problems. For: RT #130088, as recommended by Mark E Renzulli (UTRC). ----------------------------------------------------------------------- Summary of changes: Porting/pod_lib.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) mode change 100644 => 100755 Porting/pod_lib.pl diff --git a/Porting/pod_lib.pl b/Porting/pod_lib.pl old mode 100644 new mode 100755 index 6eaacde..25cf691 --- a/Porting/pod_lib.pl +++ b/Porting/pod_lib.pl @@ -403,7 +403,7 @@ sub __prime_state { my $filename = "pod/$source"; my $contents = slurp_or_die($filename); my @want = - $contents =~ /perldelta - what is new for perl v(5)\.(\d+)\.(\d+)\n/; + $contents =~ /perldelta - what is new for perl v(5)\.(\d+)\.(\d+)\r?\n/; die "Can't extract version from $filename" unless @want; my $delta_leaf = join '', 'perl', @want, 'delta'; $state{delta_target} = "$delta_leaf.pod"; -- Perl5 Master Repository
