diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-01 03:45:13 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-01 03:45:13 +0000 |
| commit | 638eceb6656bf10acb1a6dc2a55880f5e1a6c8c4 (patch) | |
| tree | 35c02afc07b97e44b7d4abdf0b4829f850a890a3 /doio.c | |
| parent | 7766f1371a6d2b58d0f46fbe6a60785860a39c1e (diff) | |
| download | perl-638eceb6656bf10acb1a6dc2a55880f5e1a6c8c4.tar.gz | |
minor USE_ITHREADS tweaks
p4raw-id: //depot/perl@4603
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1064,7 +1064,7 @@ Perl_my_stat(pTHX) if (PL_op->op_flags & OPf_REF) { EXTEND(SP,1); - tmpgv = cGVOP; + tmpgv = cGVOP_gv; do_fstat: io = GvIO(tmpgv); if (io && IoIFP(io)) { @@ -1117,7 +1117,7 @@ Perl_my_lstat(pTHX) STRLEN n_a; if (PL_op->op_flags & OPf_REF) { EXTEND(SP,1); - if (cGVOP == PL_defgv) { + if (cGVOP_gv == PL_defgv) { if (PL_laststype != OP_LSTAT) Perl_croak(aTHX_ "The stat preceding -l _ wasn't an lstat"); return PL_laststatval; |