[perl #29708] Problem with autouse (causing Perl to crash)

@_ sometimes wasn't getting created right

p4raw-id: //depot/perl@22870

1 files changed, 3 insertions, 0 deletions

diff --git a/pad.c b/pad.c
index 209eb0a71b..d7799c97a6 100644
--- a/pad.c
+++ b/pad.c
@@ -1523,6 +1523,9 @@ If has_args is true, give the new pad an @_ in slot zero.
 =cut
 */
 
+/* XXX pad_push is now always called with has_args == 1. Get rid of
+ * this arg at some point */
+
 void
 Perl_pad_push(pTHX_ PADLIST *padlist, int depth, int has_args)
 {