diff options
| author | Jarkko Hietaniemi <jhi@alpha.hut.fi> | 1996-10-07 22:03:00 +0300 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-10-07 22:03:00 +0300 |
| commit | 2f52a3580b4a7ee9bec0aab0bca8b2c19859675d (patch) | |
| tree | 6d95c3886fedb47e074ab7446cac20ed2f5abd3b /t/lib/gdbm.t | |
| parent | 1ab872dad76f8ad01b881881eaac152a79eb3864 (diff) | |
| download | perl-2f52a3580b4a7ee9bec0aab0bca8b2c19859675d.tar.gz | |
LC_COLLATE.
Big patch to add, document, and test LC_COLLATE support.
A not necessarily gt a.
Diffstat (limited to 't/lib/gdbm.t')
| -rwxr-xr-x | t/lib/gdbm.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/lib/gdbm.t b/t/lib/gdbm.t index 0d2c1fe023..d15228c18a 100755 --- a/t/lib/gdbm.t +++ b/t/lib/gdbm.t @@ -83,7 +83,7 @@ delete $h{'goner3'}; if ($#keys == 29 && $#values == 29) {print "ok 5\n";} else {print "not ok 5\n";} while (($key,$value) = each(h)) { - if ($key eq $keys[$i] && $value eq $values[$i] && $key gt $value) { + if ($key eq $keys[$i] && $value eq $values[$i] && $key eq lc($value)) { $key =~ y/a-z/A-Z/; $i++ if $key eq $value; } |