diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 1998-02-04 20:37:03 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-06 15:58:31 +0000 |
| commit | e5724059399517e049ad3e9429cfece6d66ce97f (patch) | |
| tree | acc97b3ba2616ef011cfebf8c1617ba7959c3071 /lib/Tie/Array.pm | |
| parent | ceeed4e579f2b3ba23998094f814c50a49a31e1c (diff) | |
| download | perl-e5724059399517e049ad3e9429cfece6d66ce97f.tar.gz | |
Another Array.pm patch
p4raw-id: //depot/perl@469
Diffstat (limited to 'lib/Tie/Array.pm')
| -rw-r--r-- | lib/Tie/Array.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Tie/Array.pm b/lib/Tie/Array.pm index a0389fa106..4041b00e86 100644 --- a/lib/Tie/Array.pm +++ b/lib/Tie/Array.pm @@ -26,7 +26,7 @@ sub POP if ($newsize >= 0) { $val = $obj->FETCH($newsize); - $obj->SETSIZE($newsize); + $obj->STORESIZE($newsize); } $val; } |