Skip to content

Commit ec787db

Browse files
committed
Merge branch 'ak/cvsserver-stabilize-use-of-hash-keys'
* ak/cvsserver-stabilize-use-of-hash-keys: cvsserver: Determinize output to combat Perl 5.18 hash randomization
2 parents a3a9cff + 9462953 commit ec787db

File tree

1 file changed

+5
-5
lines changed

1 file changed

+5
-5
lines changed

git-cvsserver.perl

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -430,10 +430,10 @@ sub req_validrequests
430430

431431
$log->debug("req_validrequests");
432432

433-
$log->debug("SEND : Valid-requests " . join(" ",keys %$methods));
433+
$log->debug("SEND : Valid-requests " . join(" ",sort keys %$methods));
434434
$log->debug("SEND : ok");
435435

436-
print "Valid-requests " . join(" ",keys %$methods) . "\n";
436+
print "Valid-requests " . join(" ",sort keys %$methods) . "\n";
437437
print "ok\n";
438438
}
439439

@@ -2124,7 +2124,7 @@ sub req_diff
21242124
print "M retrieving revision $meta2->{revision}\n"
21252125
}
21262126
print "M diff ";
2127-
foreach my $opt ( keys %{$state->{opt}} )
2127+
foreach my $opt ( sort keys %{$state->{opt}} )
21282128
{
21292129
if ( ref $state->{opt}{$opt} eq "ARRAY" )
21302130
{
@@ -4050,7 +4050,7 @@ sub update
40504050
close FILELIST;
40514051

40524052
# Detect deleted files
4053-
foreach my $file ( keys %$head )
4053+
foreach my $file ( sort keys %$head )
40544054
{
40554055
unless ( exists $seen_files->{$file} or $head->{$file}{filehash} eq "deleted" )
40564056
{
@@ -4078,7 +4078,7 @@ sub update
40784078
}
40794079

40804080
$self->delete_head();
4081-
foreach my $file ( keys %$head )
4081+
foreach my $file ( sort keys %$head )
40824082
{
40834083
$self->insert_head(
40844084
$file,

0 commit comments

Comments
 (0)