diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-09-06 09:21:24 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-09-06 09:24:54 -0500 |
commit | e1b6c960b5ab304f320ee63b1e2572a7883e17ef (patch) | |
tree | 9a88526bbeb7c2583985e86aa4657a9042222b44 /XS.xs | |
parent | 616b154b64d77e7c12b2afce00995d7417c6ffd7 (diff) | |
download | package-stash-xs-e1b6c960b5ab304f320ee63b1e2572a7883e17ef.tar.gz package-stash-xs-e1b6c960b5ab304f320ee63b1e2572a7883e17ef.zip |
fix compilation on perl 5.8 (RT#70762)0.25
Diffstat (limited to 'XS.xs')
-rw-r--r-- | XS.xs | 10 |
1 files changed, 9 insertions, 1 deletions
@@ -804,10 +804,18 @@ get_all_symbols(self, vartype=VAR_NONE) BOOT: { + const char *vmre = "\\A[0-9A-Z_a-z]+(?:::[0-9A-Z_a-z]+)*\\z"; +#if (PERL_VERSION < 9) || ((PERL_VERSION == 9) && (PERL_SUBVERSION < 5)) + PMOP fakepmop; + + fakepmop.op_pmflags = 0; + valid_module_regex = pregcomp(vmre, vmre + strlen(vmre), &fakepmop); +#else SV *re; - re = newSVpv("\\A[0-9A-Z_a-z]+(?:::[0-9A-Z_a-z]+)*\\z", 0); + re = newSVpv(vmre, 0); valid_module_regex = pregcomp(re, 0); +#endif name_key = newSVpvs("name"); PERL_HASH(name_hash, "name", 4); |