From 66a934c02168048cebeb5a95d6ad3bbbe6e8f707 Mon Sep 17 00:00:00 2001
From: Karen Etheridge <ether@cpan.org>
Date: Thu, 7 Dec 2017 12:37:08 -0800
Subject: [PATCH] improve code as per ppport.h suggestions

I checked them all and they look sensible.
---
 Parser.xs              | 2 +-
 stolen_chunk_of_toke.c | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/Parser.xs b/Parser.xs
index c9776b7..84a4ec9 100644
--- a/Parser.xs
+++ b/Parser.xs
@@ -5,7 +5,7 @@
 #include "perl.h"
 #include "XSUB.h"
 
-#define NEED_PL_parser
+#define NEED_PL_parser_GLOBAL
 #include "ppport.h"
 
 #include "hook_parser.h"
diff --git a/stolen_chunk_of_toke.c b/stolen_chunk_of_toke.c
index 9daafa8..f3b3ede 100644
--- a/stolen_chunk_of_toke.c
+++ b/stolen_chunk_of_toke.c
@@ -19,7 +19,7 @@
 
 #include "EXTERN.h"
 #include "perl.h"
-#define NEED_PL_parser
+#define NEED_sv_2pv_flags
 #include "ppport.h"
 
 /* the following #defines are stolen from assorted headers, not toke.c (mst) */
@@ -128,7 +128,7 @@ static const char c_in_subst[] =
 /* Invoke the idxth filter function for the current rsfp.	 */
 /* maxlen 0 = read one text line */
 I32
-Perl_filter_read(pTHX_ int idx, SV *buf_sv, int maxlen)
+filter_read(pTHX_ int idx, SV *buf_sv, int maxlen)
 {
     filter_t funcp;
     SV *datasv = NULL;