Re: CPAN-1.9301 can't clean bootstrap .cpan

[perl5.git] / reentr.c

diff --git a/reentr.c b/reentr.c
index bae6876..25fccf8 100644 (file)
--- a/reentr.c
+++ b/reentr.c
@@ -314,6 +314,11 @@ Perl_reentrant_retry(const char *f, ...)
     dTHX;
     void *retptr = NULL;
     va_list ap;
+#ifdef USE_REENTRANT_API
+    /* Easier to special case this here than in embed.pl. (Look at what it
+       generates for proto.h) */
+    PERL_ARGS_ASSERT_REENTRANT_RETRY;
+#endif
     va_start(ap, f);
     {
 #ifdef USE_REENTRANT_API