perl 5.003_07: Configure

[p5sagit/p5-mst-13.2.git] / t / lib / db-hash.t

diff --git a/t/lib/db-hash.t b/t/lib/db-hash.t
index f5c9cc8..36a3f33 100755 (executable)
--- a/t/lib/db-hash.t
+++ b/t/lib/db-hash.t
@@ -153,7 +153,7 @@ ok(23, $#keys == 29 && $#values == 29) ;
 
 $i = 0 ;
 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;
     }