summaryrefslogtreecommitdiff
path: root/t/lib/anydbm.t
diff options
context:
space:
mode:
Diffstat (limited to 't/lib/anydbm.t')
-rwxr-xr-xt/lib/anydbm.t4
1 files changed, 2 insertions, 2 deletions
diff --git a/t/lib/anydbm.t b/t/lib/anydbm.t
index 854f146337..ce3003e5b7 100755
--- a/t/lib/anydbm.t
+++ b/t/lib/anydbm.t
@@ -85,7 +85,7 @@ delete $h{'goner3'};
if ($#keys == 29 && $#values == 29) {print "ok 5\n";} else {print "not ok 5\n";}
-while (($key,$value) = each(h)) {
+while (($key,$value) = each(%h)) {
if ($key eq $keys[$i] && $value eq $values[$i] && $key eq lc($value)) {
$key =~ y/a-z/A-Z/;
$i++ if $key eq $value;
@@ -94,7 +94,7 @@ while (($key,$value) = each(h)) {
if ($i == 30) {print "ok 6\n";} else {print "not ok 6\n";}
-@keys = ('blurfl', keys(h), 'dyick');
+@keys = ('blurfl', keys(%h), 'dyick');
if ($#keys == 31) {print "ok 7\n";} else {print "not ok 7\n";}
$h{'foo'} = '';