diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-11-05 01:04:10 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-11-05 01:04:10 +0000 |
| commit | 4e35701fd273ba8d0093a29660dee38a92408e9b (patch) | |
| tree | afa97d9bf675ea146b86cf09a7c27e1bfbb980f3 /gv.c | |
| parent | 2b544454484ed91b6f1ae2cffef4c29b1302dcd7 (diff) | |
| download | perl-4e35701fd273ba8d0093a29660dee38a92408e9b.tar.gz | |
Builds C++ Borland, MSVC++ (Win32) and GCC++ (Solaris)
p4raw-id: //depot/ansiperl@203
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -219,6 +219,7 @@ gv_fetchmeth(HV *stash, char *name, STRLEN len, I32 level) (cv = GvCV(gv)) && (CvROOT(cv) || CvXSUB(cv))) { + dTHR; /* just for SvREFCNT_inc */ if (cv = GvCV(topgv)) SvREFCNT_dec(cv); GvCV(topgv) = (CV*)SvREFCNT_inc(GvCV(gv)); @@ -1284,7 +1285,6 @@ amagic_call(SV *left, SV *right, int method, int flags) || inc_dec_ass) RvDEEPCP(left); } { - dTHR; dSP; BINOP myop; SV* res; @@ -1362,3 +1362,4 @@ amagic_call(SV *left, SV *right, int method, int flags) } } #endif /* OVERLOAD */ + |