In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/be544edcaf8e3776336365b1525882f35e4ea6f3?hp=50278ed0ff8eeb370e748884655978f718c551a4>
- Log ----------------------------------------------------------------- commit be544edcaf8e3776336365b1525882f35e4ea6f3 Author: Nicholas Clark <[email protected]> Date: Fri Jul 12 16:50:13 2013 +0200 Generate Errno and Pod::Functions with deterministic order. Previously the order of duplicate names in Errno was determined by hash iteration order, as was the order of the list of types for built-ins in Pod::Functions. With hash randomisation this meant that the generated file could differ between builds, which isn't ideal if the input is the same. (Spotted as a side effect of running a diff on two installation trees.) ----------------------------------------------------------------------- Summary of changes: ext/Errno/Errno_pm.PL | 4 ++-- ext/Pod-Functions/Functions_pm.PL | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL index b707911..b372875 100644 --- a/ext/Errno/Errno_pm.PL +++ b/ext/Errno/Errno_pm.PL @@ -2,7 +2,7 @@ use ExtUtils::MakeMaker; use Config; use strict; -our $VERSION = "1.18"; +our $VERSION = "1.19"; my %err = (); my %wsa = (); @@ -305,7 +305,7 @@ BEGIN { %err = ( EDQ - my @err = sort { $err{$a} <=> $err{$b} } + my @err = sort { $err{$a} <=> $err{$b} || $a cmp $b } grep { $err{$_} =~ /-?\d+$/ } keys %err; foreach $err (@err) { diff --git a/ext/Pod-Functions/Functions_pm.PL b/ext/Pod-Functions/Functions_pm.PL index 0d38aef..7cf0b51 100644 --- a/ext/Pod-Functions/Functions_pm.PL +++ b/ext/Pod-Functions/Functions_pm.PL @@ -198,7 +198,7 @@ L<perlfunc/"Perl Functions by Category"> section. =cut -our $VERSION = '1.06'; +our $VERSION = '1.07'; require Exporter; @@ -265,7 +265,7 @@ foreach my $func (sort_funcs(keys %Flavor)) { my $desc = $Flavor{$func}; die "No types listed for $func" unless $Type{$func}; next if $Omit{$func}; - print $fh join("\t", $func, @{$Type{$func}}, $desc), "\n"; + print $fh join("\t", $func, (sort @{$Type{$func}}), $desc), "\n"; } close $fh or die "Can't close '$temp': $!"; -- Perl5 Master Repository
