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

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;
     }
 }