diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-02-04 20:02:56 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-02-04 20:02:56 +0000 |
| commit | 834a3ffa15e23871424d94f91fd39fe77b05f76b (patch) | |
| tree | 310a493c392b2448cf510d5471315bdaa6862c30 /op.c | |
| parent | 89af21288ea5fae338d6b860fcbee2bc26c3a116 (diff) | |
| download | perl-834a3ffa15e23871424d94f91fd39fe77b05f76b.tar.gz | |
Better version of change #18648, by Enache Adrian
Message-ID: <20030204101533.GA11817@ratsnest.hole>
p4raw-link: @18648 on //depot/perl: 7c2549db3c820cf72273bacc18a4e3d2b361563d
p4raw-id: //depot/perl@18656
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2964,14 +2964,14 @@ Perl_vload_module(pTHX_ U32 flags, SV *name, SV *ver, va_list *args) } { line_t ocopline = PL_copline; - line_t ocopline2 = PL_curcop->cop_line; + COP *ocurcop = PL_curcop; int oexpect = PL_expect; utilize(!(flags & PERL_LOADMOD_DENY), start_subparse(FALSE, 0), veop, modname, imop); PL_expect = oexpect; PL_copline = ocopline; - PL_curcop->cop_line = ocopline2; + PL_curcop = ocurcop; } } |