diff options
| author | Larry Wall <lwall@sems.com> | 1996-08-10 15:24:58 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@sems.com> | 1996-08-10 15:24:58 +0000 |
| commit | 760ac839baf413929cd31cc32ffd6dba6b781a81 (patch) | |
| tree | 010ae8135426972c27b065782284341c839dc2a0 /t/lib/db-btree.t | |
| parent | 43cc1d52f97c5f21f3207f045444707e7be33927 (diff) | |
| download | perl-760ac839baf413929cd31cc32ffd6dba6b781a81.tar.gz | |
perl 5.003_02: [no incremental changelog available]
Diffstat (limited to 't/lib/db-btree.t')
| -rwxr-xr-x | t/lib/db-btree.t | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/t/lib/db-btree.t b/t/lib/db-btree.t index f3cf94487e..d5d97d7b3f 100755 --- a/t/lib/db-btree.t +++ b/t/lib/db-btree.t @@ -373,10 +373,12 @@ print( "@unknown" eq "" ? "ok 78\n" : "not ok 78\n") ; my @smith = $YY->get_dup('Smith') ; print( "@smith" eq "John" ? "ok 79\n" : "not ok 79\n") ; -my @wall = $YY->get_dup('Wall') ; -my %wall ; -@wall{@wall} = @wall ; -print( (@wall == 3 && $wall{'Larry'} && $wall{'Stone'} && $wall{'Brick'}) ? "ok 80\n" : "not ok 80\n") ; +{ + my @wall = $YY->get_dup('Wall') ; + my %wall ; + @wall{@wall} = @wall ; + print( (@wall == 3 && $wall{'Larry'} && $wall{'Stone'} && $wall{'Brick'}) ? "ok 80\n" : "not ok 80\n") ; +} # hash my %unknown = $YY->get_dup('Unknown', 1) ; @@ -385,7 +387,7 @@ print( keys %unknown == 0 ? "ok 81\n" : "not ok 81\n") ; my %smith = $YY->get_dup('Smith', 1) ; print( (keys %smith == 1 && $smith{'John'}) ? "ok 82\n" : "not ok 82\n") ; -my %wall = $YY->get_dup('Wall', 1) ; +%wall = $YY->get_dup('Wall', 1) ; print( (keys %wall == 3 && $wall{'Larry'} && $wall{'Stone'} && $wall{'Brick'}) ? "ok 83\n" : "not ok 83\n") ; undef $YY ; |