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 /perl.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 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -386,7 +386,7 @@ perl_destruct(register PerlInterpreter *sv_interp) /* call exit list functions */ while (exitlistlen-- > 0) - exitlist[exitlistlen].fn(THIS_ exitlist[exitlistlen].ptr); + exitlist[exitlistlen].fn(PERL_OBJECT_THIS_ exitlist[exitlistlen].ptr); Safefree(exitlist); @@ -944,7 +944,7 @@ print \" \\@INC:\\n @INC\\n\";"); boot_core_UNIVERSAL(); if (xsinit) - (*xsinit)(THIS); /* in case linked C routines want magical variables */ + (*xsinit)(PERL_OBJECT_THIS); /* in case linked C routines want magical variables */ #if defined(VMS) || defined(WIN32) || defined(DJGPP) init_os_extras(); #endif |