Changeset 27602


Ignore:
Timestamp:
2013-06-12T17:23:46+12:00 (11 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.

File:
1 edited

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}})
Note: See TracChangeset for help on using the changeset viewer.