[win32] add AS patch#26 (rename THIS to PERL_OBJEC_THIS to avoid clash

with the xsubpp-generated symbol)

p4raw-id: //depot/win32/perl@1075

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index e9e3f0057d..c035563847 100644
--- a/toke.c
+++ b/toke.c
@@ -1347,7 +1347,7 @@ filter_read(int idx, SV *buf_sv, int maxlen)
     /* Call function. The function is expected to 	*/
     /* call "FILTER_READ(idx+1, buf_sv)" first.		*/
     /* Return: <0:error, =0:eof, >0:not eof 		*/
-    return (*funcp)(THIS_ idx, buf_sv, maxlen);
+    return (*funcp)(PERL_OBJECT_THIS_ idx, buf_sv, maxlen);
 }
 
 STATIC char *