Don't dereference PL_parser.

rafl · Nov 6, 2008 · 2134691 · 2134691
1 parent 61fb798
commit 2134691
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/Signature.xs b/Signature.xs
@@ -5,6 +5,11 @@
 #define NEED_PL_parser
 #include "ppport.h"
 
+/* this should go into ppport */
+#if PERL_BCDVERSION >= 0x5009005
+#define PL_oldbufptr D_PPP_my_PL_parser_var(oldbufptr)
+#endif
+
 #include "hook_op_check.h"
 #include "hook_parser.h"
 
@@ -76,7 +81,7 @@ handle_proto (pTHX_ OP *op, void *user_data) {
 	}
 
 	/* sub $name */
-	s = PL_parser->oldbufptr;
+	s = PL_oldbufptr;
 	s = hook_toke_skipspace (aTHX_ s);
 
 	if (strnNE (s, "sub", 3)) {