Change 16471: Reset Mac::err flag in app, MacPerl Bug #546065

Change 16471 by pudge@pudge-mobile on 2002/05/08 03:50:25

	Reset Mac::err flag in app, MacPerl Bug #546065

Affected files ...

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

Differences ...

==== //depot/macperl/macos/macperl/MPScript.c#2 (text) ====
Index: macperl/macos/macperl/MPScript.c
--- macperl/macos/macperl/MPScript.c#1~16123~	Tue Apr 23 18:25:17 2002
+++ macperl/macos/macperl/MPScript.c	Tue May  7 20:50:25 2002
@@ -625,6 +625,7 @@
 	gRunningPerl 	=  true;
 	gMacPerl_Quit	=	0;
 	gMacPerl_OSErr	=	0;
+	gMacPerl_ErrorFormat	= 1;
 	
 	ShowWindowStatus();
 	

==== //depot/maint-5.6/macperl/macos/macperl/MPScript.c#7 (text) ====
Index: macperl/macos/macperl/MPScript.c
--- macperl/macos/macperl/MPScript.c#6~14070~	Fri Jan  4 12:32:57 2002
+++ macperl/macos/macperl/MPScript.c	Tue May  7 20:50:25 2002
@@ -5,6 +5,9 @@
 Language	:	MPW C
 
 $Log: MPScript.c,v $
+Revision 1.10  2002/05/08 03:55:37  pudge
+Misc. bugfixes
+
 Revision 1.9  2002/01/04 03:34:45  pudge
 Modifications for universal headers 3.4
 
@@ -625,6 +628,7 @@
 	gRunningPerl 	=  true;
 	gMacPerl_Quit	=	0;
 	gMacPerl_OSErr	=	0;
+	gMacPerl_ErrorFormat	= 1;
 	
 	ShowWindowStatus();
 	
End of Patch.