[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/pp_ctl.c b/pp_ctl.c
index 805262f119..444036ea7e 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1773,7 +1773,7 @@ PP(pp_goto)
 		}
 		else {
 		    stack_sp--;		/* There is no cv arg. */
-		    (void)(*CvXSUB(cv))(cv _THIS);
+		    (void)(*CvXSUB(cv))(cv _PERL_OBJECT_THIS);
 		}
 		LEAVE;
 		return pop_return();