From: Paul Marquess <paul.marquess@btinternet.com>
Date: Wed, 4 Feb 1998 20:37:03 +0000 (+0000)
Subject: Another Array.pm patch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e5724059399517e049ad3e9429cfece6d66ce97f;p=p5sagit%2Fp5-mst-13.2.git

Another Array.pm patch

p4raw-id: //depot/perl@469
---

diff --git a/lib/Tie/Array.pm b/lib/Tie/Array.pm
index a0389fa..4041b00 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;
 }