File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff 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 ,
You can’t perform that action at this time.
0 commit comments