Changeset 27602

Show
Ignore:
Timestamp:
12.06.2013 17:23:46 (6 years ago)
Author:
ak19
Message:

Adding sorting on keys. Particularly necessary for diffcol.pl (automated testing), since otherwise the OS orders the keys coming out of the database and this ordering can differ.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/dbutil/gdbmtxtgz.pm

    r23399 r27602  
    154154   
    155155  print $infodb_handle "[$infodb_key]\n"; 
    156   foreach my $infodb_value_key (keys(%$infodb_map)) 
     156  foreach my $infodb_value_key (sort keys(%$infodb_map)) 
    157157  { 
    158158    foreach my $infodb_value (@{$infodb_map->{$infodb_value_key}})