diff options
| author | Stephen Potter <spp@psa.pencom.com> | 1998-02-12 11:11:05 -0600 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-20 12:20:29 +0000 |
| commit | c6aa4a325f8f7aec03423575f368826bb1e2b038 (patch) | |
| tree | 4f26fc072908cd72af68c607cb1736795f1ac67c /t/lib/sdbm.t | |
| parent | 7fd66d9d30123afaec1f02787836d8154d73e836 (diff) | |
| download | perl-c6aa4a325f8f7aec03423575f368826bb1e2b038.tar.gz | |
5.004_58, move intuition tests
p4raw-id: //depot/perl@536
Diffstat (limited to 't/lib/sdbm.t')
| -rwxr-xr-x | t/lib/sdbm.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/lib/sdbm.t b/t/lib/sdbm.t index 90dbb841e6..c2952ecf68 100755 --- a/t/lib/sdbm.t +++ b/t/lib/sdbm.t @@ -90,7 +90,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; @@ -99,7 +99,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'} = ''; |