This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make PadnameIN_SCOPE() name begin with S_
[perl5.git] / embed.h
diff --git a/embed.h b/embed.h
index 9eb9a70..2239115 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define pad_findlex(a,b,c,d,e,f,g,h,i) S_pad_findlex(aTHX_ a,b,c,d,e,f,g,h,i)
 #define pad_reset()            S_pad_reset(aTHX)
 #  endif
+#  if defined(PERL_IN_PAD_C) || defined(PERL_IN_OP_C)
+#define PadnameIN_SCOPE                S_PadnameIN_SCOPE
+#  endif
 #  if defined(PERL_IN_PERL_C)
 #define find_beginning(a,b)    S_find_beginning(aTHX_ a,b)
 #define forbid_setid(a,b)      S_forbid_setid(aTHX_ a,b)