From 513922a6dbb8b1f5fa162b1cafe7df0e19f047a2 Mon Sep 17 00:00:00 2001 From: Steve Hay Date: Thu, 19 Sep 2013 23:45:18 +0100 Subject: [PATCH] corelist.pl - Put the new utilities delta section in place This includes removing any existing stub section for this $perl_vnum first. --- Porting/corelist.pl | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/Porting/corelist.pl b/Porting/corelist.pl index 442b62b..60032fe 100755 --- a/Porting/corelist.pl +++ b/Porting/corelist.pl @@ -315,6 +315,25 @@ my %utils = map { ( $_ => 1 ) } parse_utils_lst(); my $delta_utils = make_coreutils_delta($perl_vnum, \%utils); +my $utilities_in_release = " " . $perl_vnum . " => {\n"; +$utilities_in_release .= " delta_from => $delta_utils->{delta_from},\n"; +$utilities_in_release .= " changed => {\n"; +foreach my $key (sort keys $delta_utils->{changed}) { + $utilities_in_release .= sprintf " %-24s=> %s,\n", "'$key'", + defined $delta_utils->{changed}{$key} ? "'" + . $delta_utils->{changed}{$key} . "'" : "undef"; +} +$utilities_in_release .= " },\n"; +$utilities_in_release .= " removed => {\n"; +for my $key (sort keys($delta_utils->{removed} || {})) { + $utilities_in_release .= sprintf " %-24s=> %s,\n", "'$key'", 1; +} +$utilities_in_release .= " }\n"; +$utilities_in_release .= " },\n"; + +$utils =~ s/^(my %delta\s*=\s*.*?)^\s*$perl_vnum\s*=>\s*{.*?},\s*(^\);)$/$1$2/ism; +$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"; -- 2.7.4