projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
89af212
)
Better version of change #18648, by Enache Adrian
author
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Tue, 4 Feb 2003 20:02:56 +0000
(20:02 +0000)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Tue, 4 Feb 2003 20:02:56 +0000
(20:02 +0000)
Message-ID: <
20030204101533
.GA11817@ratsnest.hole>
p4raw-link: @18648 on //depot/perl:
7c2549db3c820cf72273bacc18a4e3d2b361563d
p4raw-id: //depot/perl@18656
op.c
patch
|
blob
|
history
diff --git
a/op.c
b/op.c
index
81120fa
..
7cb7fad
100644
(file)
--- a/
op.c
+++ b/
op.c
@@
-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
;
}
}