Change 34908: Re: [perl #59280] perlbug AutoReply: PUSH on tied array gives incorrect context to method and can result in needless calls to FETCHSIZE

[Steve Peters]

Change 34908 by [EMAIL PROTECTED] on 2008/11/25 06:48:36

        Subject: Re: [perl #59280] perlbug AutoReply: PUSH on tied array gives 
incorrect context to method and can result in needless calls to FETCHSIZE
        From: "Luke Ross" <[EMAIL PROTECTED]>
        Date: Tue, 30 Sep 2008 22:41:50 +0100
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/pp.c#645 edit

Differences ...

==== //depot/perl/pp.c#645 (text) ====
Index: perl/pp.c
--- perl/pp.c#644~34860~        2008-11-16 23:33:24.000000000 -0800
+++ perl/pp.c   2008-11-24 22:48:36.000000000 -0800
@@ -4523,7 +4523,9 @@
        LEAVE;
        SPAGAIN;
        SP = ORIGMARK;
-       PUSHi( AvFILL(ary) + 1 );
+       if (GIMME_V != G_VOID) {
+           PUSHi( AvFILL(ary) + 1 );
+       }
     }
     else {
        PL_delaymagic = DM_DELAY;
@@ -4581,7 +4583,9 @@
        }
     }
     SP = ORIGMARK;
-    PUSHi( AvFILL(ary) + 1 );
+    if (GIMME_V != G_VOID) {
+       PUSHi( AvFILL(ary) + 1 );
+    }
     RETURN;
 }
 
End of Patch.