| 1 | = PerlMapScript with Perl5.8 = |
| 2 | |
| 3 | Contributed by Joe Bussell |
| 4 | |
| 5 | The interface code in mapscript_wrap.c is broken for PERL 5.8. |
| 6 | Specifically, the macro XS(boot_mapscript) must be declared if the PERL object is not declared. |
| 7 | |
| 8 | In my world line 431 which reads: |
| 9 | SWIGEXPORT(void) boot_mapscript(CV* cv); |
| 10 | |
| 11 | should be replaced with: |
| 12 | XS(boot_mapscript); |
| 13 | |
| 14 | How does this bug manifest itself? In what mapserver version? ( FixMe ) |
| 15 | |
| 16 | My mapserver-4.2.3/mapscript/perl/mapscript_wrap.c:811 has |
| 17 | {{{ |
| 18 | #!perl |
| 19 | #define SWIG_init boot_mapscript |
| 20 | |
| 21 | #define SWIG_name "mapscriptc::boot_mapscript" |
| 22 | #define SWIG_prefix "mapscriptc::" |
| 23 | |
| 24 | #ifdef __cplusplus |
| 25 | extern "C" |
| 26 | #endif |
| 27 | #ifndef PERL_OBJECT |
| 28 | #ifndef MULTIPLICITY |
| 29 | SWIGEXPORT(void) SWIG_init (CV* cv); |
| 30 | #else |
| 31 | SWIGEXPORT(void) SWIG_init (pTHXo_ CV* cv); |
| 32 | #endif |
| 33 | }}} |
| 34 | Which looks like it has some changes. |
| 35 | ---- |
| 36 | back to PerlMapScript |