Fix 2000/dlowe for more recent perl versions
The problem was that they renamed 'na' to 'PL_na' so the code did not compile. I note that it segfaults in macOS but I've not had a chance to look into that yet. It works fine in linux.
This commit is contained in:
1 parent
59045fa8f9
commit
c14148da39
2 files changed
+6
-1
No files matched your search
+1
-1
@@ -6,7 +6,7 @@
|
||||
#define cc (((3)))
|
||||
#define ZZ(YY,WW) XS(YY) {AV*gg\
|
||||
= perl_get_av( "SS",cc-cc); SV* Ss,*uu; char \
|
||||
ii=*(SvPV( perl_get_sv("_", 0*cc),na)\
|
||||
ii=*(SvPV( perl_get_sv("_", 0*cc),PL_na)\
|
||||
) %(36+cc); ( av_len(gg) <1)?( perl_call_pv\
|
||||
("__",0/cc)):(Ss =av_pop(gg), uu= av_pop(gg),(((i\
|
||||
i==pow(2,cc))||( ii==(40-cc)))&&( SvNV(Ss)==0))?(\
|
||||
|
||||
Reference in new issue
Block a user