From ae864c3a14f4c18829d27d407db1035212a0fdef Mon Sep 17 00:00:00 2001 From: Steve Hay Date: Thu, 19 Sep 2013 23:43:24 +0100 Subject: [PATCH] corelist.pl - Fix make_coreutils_delta() --- Porting/corelist.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Porting/corelist.pl b/Porting/corelist.pl index d66f4b3..442b62b 100755 --- a/Porting/corelist.pl +++ b/Porting/corelist.pl @@ -378,21 +378,21 @@ sub make_coreutils_delta { my($version, $lines) = @_; # Trust core perl, if someone does use a weird version number the worst that # can happen is an extra delta entry for a module. - my %versions = map { $_ => eval $lines->{$_} } keys %$lines; + my %utilities = map { $_ => eval $lines->{$_} } keys %$lines; # Ensure we have the corelist data loaded from this perl checkout, not the system one. - require $corelist_file; + require $utils_file; my %deltas; # Search for the release with the least amount of changes (this avoids having # to ask for where this perl was branched from). - for my $previous (reverse sort keys %Module::CoreList::version) { + for my $previous (reverse sort keys %Module::CoreList::Utils::utilities) { # Shouldn't happen, but ensure we don't load weird data... next if $previous > $version || $previous == $version && $previous eq $version; my $delta = $deltas{$previous} = {}; ($delta->{changed}, $delta->{removed}) = calculate_delta( - $Module::CoreList::version{$previous}, \%versions); + $Module::CoreList::Utils::utilities{$previous}, \%utilities); } my $smallest = (sort { -- 2.7.4