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 (file)
--- 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;
 }