This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
S_regcurly needs thread context.
[perl5.git] / dquote_static.c
index 5321221..4cc276f 100644 (file)
@@ -16,7 +16,7 @@
     Pulled from regcomp.c.
  */
 PERL_STATIC_INLINE I32
-S_regcurly(register const char *s)
+S_regcurly(pTHX_ register const char *s)
 {
     PERL_ARGS_ASSERT_REGCURLY;