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
@@ -19,6 +19,11 @@ The following bit of perl may help determining the values you need:
|
||||
perl -MConfig -e 'print "$Config{archlibexp}/CORE\n"'
|
||||
```
|
||||
|
||||
[Cody Boone Ferguson](/winners.html#Cody_Boone_Ferguson) fixed this to compile
|
||||
with more recent perl versions; the symbol now `PL_na` was once `na`. He notes
|
||||
that this entry crashes under macOS but it works under linux after this change.
|
||||
|
||||
|
||||
### To run:
|
||||
|
||||
```sh
|
||||
|
||||
+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