File tree Expand file tree Collapse file tree 1 file changed +5
-5
lines changed Expand file tree Collapse file tree 1 file changed +5
-5
lines changed Original file line number Diff line number Diff line change @@ -430,10 +430,10 @@ sub req_validrequests
430
430
431
431
$log -> debug(" req_validrequests" );
432
432
433
- $log -> debug(" SEND : Valid-requests " . join (" " ,keys %$methods ));
433
+ $log -> debug(" SEND : Valid-requests " . join (" " ,sort keys %$methods ));
434
434
$log -> debug(" SEND : ok" );
435
435
436
- print " Valid-requests " . join (" " ,keys %$methods ) . " \n " ;
436
+ print " Valid-requests " . join (" " ,sort keys %$methods ) . " \n " ;
437
437
print " ok\n " ;
438
438
}
439
439
@@ -2124,7 +2124,7 @@ sub req_diff
2124
2124
print " M retrieving revision $meta2 ->{revision}\n "
2125
2125
}
2126
2126
print " M diff " ;
2127
- foreach my $opt ( keys %{$state -> {opt }} )
2127
+ foreach my $opt ( sort keys %{$state -> {opt }} )
2128
2128
{
2129
2129
if ( ref $state -> {opt }{$opt } eq " ARRAY" )
2130
2130
{
@@ -4050,7 +4050,7 @@ sub update
4050
4050
close FILELIST;
4051
4051
4052
4052
# Detect deleted files
4053
- foreach my $file ( keys %$head )
4053
+ foreach my $file ( sort keys %$head )
4054
4054
{
4055
4055
unless ( exists $seen_files -> {$file } or $head -> {$file }{filehash } eq " deleted" )
4056
4056
{
@@ -4078,7 +4078,7 @@ sub update
4078
4078
}
4079
4079
4080
4080
$self -> delete_head();
4081
- foreach my $file ( keys %$head )
4081
+ foreach my $file ( sort keys %$head )
4082
4082
{
4083
4083
$self -> insert_head(
4084
4084
$file ,
You can’t perform that action at this time.
0 commit comments