diff options
| author | Mathieu Arnold <mat@FreeBSD.org> | 2015-04-14 12:02:25 +0000 |
|---|---|---|
| committer | Mathieu Arnold <mat@FreeBSD.org> | 2015-04-14 12:02:25 +0000 |
| commit | 77da259a8b81aba75395af4a91c7c759c4dccf25 (patch) | |
| tree | 2eb10002c088f8ee5ced3bb65d424f463f0b2e32 | |
| parent | Fix some glib schema issues. (diff) | |
Fix build with Perl 5.21.6+
Obtained from: https://code.google.com/p/perl-compiler/source/detail?r=86223007f5b2e947c81ee2ccbc350d49c000d3c8
Sponsored by: Absolight
Notes
Notes:
svn path=/head/; revision=383995
| -rw-r--r-- | devel/p5-B-C/files/patch-ByteLoader_bytecode.h | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/devel/p5-B-C/files/patch-ByteLoader_bytecode.h b/devel/p5-B-C/files/patch-ByteLoader_bytecode.h new file mode 100644 index 000000000000..f331e10536ee --- /dev/null +++ b/devel/p5-B-C/files/patch-ByteLoader_bytecode.h @@ -0,0 +1,25 @@ +--- ByteLoader/bytecode.h.orig 2014-08-21 22:13:08 UTC ++++ ByteLoader/bytecode.h +@@ -785,13 +785,21 @@ static int bget_swab = 0; + padl = (SV*)pad_new(arg); \ + BSET_OBJ_STOREX(padl); \ + } STMT_END +-#if (PERL_VERSION >= 19) || ( PERL_VERSION == 19 && PERL_SUBVERSION > 3) ++/* PADNAMELIST now a valid lvalue: v5.21.6-197-g0f94cb1 */ ++#if (PERL_VERSION >= 22) || ( PERL_VERSION == 21 && PERL_SUBVERSION > 5) ++#define BSET_padl_name(padl, pad) \ ++ PadlistARRAY((PADLIST*)padl)[0] = (PAD*)pad; \ ++ PadnamelistMAXNAMED((PADNAMELIST*)pad) = AvFILL((AV*)pad) ++#else ++/* extra PADNAMELIST: v5.17.3-49-g36c300b */ ++#if (PERL_VERSION >= 18) || ( PERL_VERSION == 17 && PERL_SUBVERSION > 3) + #define BSET_padl_name(padl, pad) \ + PadlistARRAY((PADLIST*)padl)[0] = (PAD*)pad; \ + PadnamelistMAXNAMED((PAD*)pad) = AvFILL((AV*)pad) + #else + #define BSET_padl_name(padl, pad) PadlistARRAY((PADLIST*)padl)[0] = (PAD*)pad + #endif ++#endif + #define BSET_padl_sym(padl, pad) PadlistARRAY((PADLIST*)padl)[1] = (PAD*)pad + #define BSET_xcv_name_hek(cv, arg) \ + STMT_START { \ |