This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
glob() loading File::Glob behind the scenes may cause syntax errors
authorGurusamy Sarathy <gsar@cpan.org>
Fri, 28 Apr 2000 22:05:31 +0000 (22:05 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Fri, 28 Apr 2000 22:05:31 +0000 (22:05 +0000)
p4raw-id: //depot/perl@6014

op.c

diff --git a/op.c b/op.c
index 681efae..3275d0e 100644 (file)
--- a/op.c
+++ b/op.c
@@ -3225,8 +3225,15 @@ Perl_vload_module(pTHX_ U32 flags, SV *name, SV *ver, va_list *args)
            sv = va_arg(*args, SV*);
        }
     }
-    utilize(!(flags & PERL_LOADMOD_DENY), start_subparse(FALSE, 0),
-           veop, modname, imop);
+    {
+       line_t ocopline = PL_copline;
+       int oexpect = PL_expect;
+
+       utilize(!(flags & PERL_LOADMOD_DENY), start_subparse(FALSE, 0),
+               veop, modname, imop);
+       PL_expect = oexpect;
+       PL_copline = ocopline;
+    }
 }
 
 OP *