Output warning in qr// only once

[perl5.git] / cv.h

diff --git a/cv.h b/cv.h
index d7106b1..a3cbdb3 100644 (file)
--- a/cv.h
+++ b/cv.h
@@ -71,7 +71,7 @@ See L<perlguts/Autoloading with XSUBs>.
        &(((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_padlist_u.xcv_padlist)))
 /* CvPADLIST_set is not public API, it can be removed one day, once stabilized */
 #ifdef DEBUGGING
-#  define CvPADLIST_set(sv, padlist) Perl_set_padlist(aTHX_ (CV*)sv, padlist)
+#  define CvPADLIST_set(sv, padlist) Perl_set_padlist((CV*)sv, padlist)
 #else
 #  define CvPADLIST_set(sv, padlist) (CvPADLIST(sv) = (padlist))
 #endif
@@ -88,7 +88,7 @@ See L<perlguts/Autoloading with XSUBs>.
 #    error unknown pointer size
 #  endif
 #else
-#  define PoisonPADLIST(sv)
+#  define PoisonPADLIST(sv) NOOP
 #endif
 
 #define CvOUTSIDE(sv)    ((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_outside