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

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

diff --git a/pad.c b/pad.c
index 209eb0a..d7799c9 100644 (file)
--- 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)
 {