diff options
author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2014-10-02 09:11:14 +0100 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2015-01-31 13:38:59 +0000 |
commit | ed91e74c919d6b62fdc07f19217f01244cb1992c (patch) | |
tree | 705eb1489d6c51eb3474f23536a3c25988fdc8c1 | |
parent | 5ffbc11ff17fa80e99e59cc55c2205a314e92978 (diff) | |
download | perl-ed91e74c919d6b62fdc07f19217f01244cb1992c.tar.gz |
There's no need to rewrite the Module-CoreList pod now
(cherry picked from commit 64eeb2c06c6efea59d1f58d8acfb0d4d3a8328aa)
(Required to allow Porting/corelist.pl to run correctly on maint-5.20
since 594a33171d is already in maint-5.20, having been cherry-picked
by b0e66da001)
-rwxr-xr-x | Porting/corelist.pl | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/Porting/corelist.pl b/Porting/corelist.pl index ab35359981..fcca6d4ef3 100755 --- a/Porting/corelist.pl +++ b/Porting/corelist.pl @@ -24,7 +24,6 @@ use IO::Uncompress::Gunzip; my $corelist_file = 'dist/Module-CoreList/lib/Module/CoreList.pm'; my $utils_file = 'dist/Module-CoreList/lib/Module/CoreList/Utils.pm'; -my $pod_file = 'dist/Module-CoreList/lib/Module/CoreList.pod'; my %lines; my %module_to_file; @@ -302,16 +301,6 @@ $corelist =~ s/^%bug_tracker .*? ;/$tracker/eismx; write_corelist($corelist,$corelist_file); -open( my $pod_fh, '<', $pod_file ); -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\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); - open( my $utils_fh, '<', $utils_file ); my $utils = join( '', <$utils_fh> ); close $utils_fh; @@ -342,7 +331,7 @@ $utils =~ s/^(my %delta\s*=\s*.*?)(^\);)$/$1$utilities_in_release$2/ism; write_corelist($utils,$utils_file); warn "All done. Please check over the following files carefully before committing.\nThanks!\n"; -warn "$corelist_file\n$pod_file\n$utils_file\n"; +warn "$corelist_file\n$utils_file\n"; sub write_corelist { my $content = shift; |