diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-09-22 15:10:40 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-09-22 15:10:40 +0000 |
| commit | 809a5acc2df9d5b3c0528c9c63a1f59bbe24b2cf (patch) | |
| tree | 8f544101e73233266c8d90348230482e3e252f1b /mg.c | |
| parent | bc1f4c8605eb0418d46665ac7ff7e98d88e051ca (diff) | |
| download | perl-809a5acc2df9d5b3c0528c9c63a1f59bbe24b2cf.tar.gz | |
Minor multi-threading patches for VMS.
p4raw-id: //depot/perl@66
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 9 |
1 files changed, 6 insertions, 3 deletions
@@ -454,11 +454,14 @@ MAGIC *mg; #endif break; case '?': - sv_setiv(sv, (IV)STATUS_CURRENT); + { + dTHR; + sv_setiv(sv, (IV)STATUS_CURRENT); #ifdef COMPLEX_STATUS - LvTARGOFF(sv) = statusvalue; - LvTARGLEN(sv) = statusvalue_vms; + LvTARGOFF(sv) = statusvalue; + LvTARGLEN(sv) = statusvalue_vms; #endif + } break; case '^': s = IoTOP_NAME(GvIOp(defoutgv)); |