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 /doop.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 'doop.c')
| -rw-r--r-- | doop.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -244,7 +244,6 @@ do_chop(register SV *astr, register SV *sv) I32 do_chomp(register SV *sv) { - dTHR; register I32 count; STRLEN len; char *s; @@ -318,7 +317,6 @@ do_chomp(register SV *sv) void do_vop(I32 optype, SV *sv, SV *left, SV *right) { - dTHR; /* just for taint */ #ifdef LIBERAL register long *dl; register long *ll; @@ -432,7 +430,7 @@ do_vop(I32 optype, SV *sv, SV *left, SV *right) OP * do_kv(ARGSproto) { - dSP; + djSP; HV *hv = (HV*)POPs; register HE *entry; SV *tmpstr; @@ -514,3 +512,4 @@ do_kv(ARGSproto) } return NORMAL; } + |