Browse files

bytecode: CopSTASHPV_set has 3 args since 5.16

  • Loading branch information...
1 parent 1049b74 commit 956fbdff6c6b700bbee8a64d0c0f80ab370551ac @rurban committed May 22, 2012
Showing with 5 additions and 0 deletions.
  1. +5 −0 ByteLoader/bytecode.h
View
5 ByteLoader/bytecode.h
@@ -520,7 +520,12 @@ static int bget_swab = 0;
#ifdef USE_ITHREADS
#define BSET_cop_file(cop, arg) CopFILE_set(cop,arg)
+#if PERL_VERSION >= 16
+/* 3arg: 6379d4a9 Father Chrysostomos 2012-04-08 20:25:52 */
+#define BSET_cop_stashpv(cop, arg) CopSTASHPV_set(cop,arg,strlen(arg))
+#else
#define BSET_cop_stashpv(cop, arg) CopSTASHPV_set(cop,arg)
+#endif
/* only warn, not croak, because those are not really important. stash could be. */
#define BSET_cop_filegv(cop, arg) Perl_warn(aTHX_ "cop_filegv with ITHREADS not yet implemented")
#define BSET_cop_stash(cop,arg) Perl_warn(aTHX_ "cop_stash with ITHREADS not yet implemented")

0 comments on commit 956fbdf

Please sign in to comment.