diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-05 18:18:44 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-05 18:18:44 +0000 |
| commit | 1d58305527a3ac3d82e30967f5b0fae28fee911d (patch) | |
| tree | 31f8ad07775d8faa4fdf686d3222bc101503a41c /pp_hot.c | |
| parent | 51aa15f38ed061e162eb5fdd50db6c15d839cf32 (diff) | |
| download | perl-1d58305527a3ac3d82e30967f5b0fae28fee911d.tar.gz | |
[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
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2105,7 +2105,7 @@ PP(pp_entersub) curcopdb = NULL; } /* Do we need to open block here? XXXX */ - (void)(*CvXSUB(cv))(cv _THIS); + (void)(*CvXSUB(cv))(cv _PERL_OBJECT_THIS); /* Enforce some sanity in scalar context. */ if (gimme == G_SCALAR && ++markix != stack_sp - stack_base ) { |