[shell changes from patch from perl5.003_23 to perl5.003_24]

[p5sagit/p5-mst-13.2.git] / pp_hot.c

diff --git a/pp_hot.c b/pp_hot.c
index cbc19d5..707239f 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1678,12 +1678,6 @@ PP(pp_leavesub)
                /* in case LEAVE wipes old return values */
     }
 
-    if (cx->blk_sub.hasargs) {         /* You don't exist; go away. */
-       AV* av = cx->blk_sub.argarray;
-
-       av_clear(av);
-       AvREAL_off(av);
-    }
     curpm = newpm;     /* Don't pop $1 et al till now */
 
     LEAVE;