Fixed the problem sv_undef. The package should now compile with Perl 5.6.0.

[simpleserver-moved-to-github.git] / SimpleServer.xs

diff --git a/SimpleServer.xs b/SimpleServer.xs
index e2db79f..4c9f8a4 100644 (file)
--- a/SimpleServer.xs
+++ b/SimpleServer.xs
@@ -37,7 +37,9 @@
 #ifdef ASN_COMPILED
 #include <yaz/ill.h>
 #endif
 #ifdef ASN_COMPILED
 #include <yaz/ill.h>
 #endif

-
+#ifndef sv_undef               /* To fix the problem with Perl 5.6.0 */
+#define sv_undef PL_sv_undef
+#endif

 
 typedef struct {
        SV *handle;
 
 typedef struct {
        SV *handle;