glob() loading File::Glob behind the scenes may cause syntax errors

p4raw-id: //depot/perl@6014

1 files changed, 9 insertions, 2 deletions

diff --git a/op.c b/op.c
index 681efae814..3275d0eabf 100644
--- 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 *