pp_pop can be implemented by pp_shift.

p4raw-id: //depot/perl@27121

1 files changed, 1 insertions, 13 deletions

diff --git a/pp.c b/pp.c
index 7789120e62..1a82a16bbf 100644
--- a/pp.c
+++ b/pp.c
@@ -4195,24 +4195,12 @@ PP(pp_push)
     RETURN;
 }
 
-PP(pp_pop)
-{
-    dVAR;
-    dSP;
-    AV * const av = (AV*)POPs;
-    SV * const sv = av_pop(av);
-    if (AvREAL(av))
-	(void)sv_2mortal(sv);
-    PUSHs(sv);
-    RETURN;
-}
-
 PP(pp_shift)
 {
     dVAR;
     dSP;
     AV * const av = (AV*)POPs;
-    SV * const sv = av_shift(av);
+    SV * const sv = PL_op->op_type == OP_SHIFT ? av_shift(av) : av_pop(av);
     EXTEND(SP, 1);
     if (!sv)
 	RETPUSHUNDEF;