From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 28 Apr 2000 22:05:31 +0000 (+0000)
Subject: glob() loading File::Glob behind the scenes may cause syntax errors
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=81885997fc84bc746ce89b42ef68a78568f56f01;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@6014
---

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