Change 13613: Clear out $^E before each script run

[email protected] (Chris Nandor) Tue, 11 Dec 2001 01:24:25 -0500

Newsgroups	perl.perl5.changes.mac
Message-ID	<p0510030fb83b570dd7b0@[10.0.1.177]>

Change 13613 by pudge@pudge-mobile on 2001/12/11 05:08:19

	Clear out $^E before each script run

Affected files ...

.... //depot/maint-5.6/macperl/macos/macperl/MPScript.c#5 edit

Differences ...

==== //depot/maint-5.6/macperl/macos/macperl/MPScript.c#5 (text) ====
Index: perl/macos/macperl/MPScript.c
--- perl/macos/macperl/MPScript.c.~1~	Mon Dec 10 22:15:05 2001
+++ perl/macos/macperl/MPScript.c	Mon Dec 10 22:15:05 2001
@@ -616,7 +616,7 @@
 	PerlArgs[ArgC] =  nil;
 	gRunningPerl 	=  true;
 	gMacPerl_Quit	=	0;
-	/* gFirstErrorLine= -1; */
+	gMacPerl_OSErr	=	0;
 	
 	ShowWindowStatus();
 	
End of Patch.