Change 14126: Eliminate nested calls to exit() (MacPerl bug #469132)

Change 14126 by pudge@pudge-mobile on 2002/01/07 22:23:06

	Eliminate nested calls to exit() (MacPerl bug #469132)

Affected files ...

.... //depot/maint-5.6/macperl/macos/macperl/MPFile.c#3 edit
.... //depot/maint-5.6/macperl/macos/macperl/MPMain.c#5 edit

Differences ...

==== //depot/maint-5.6/macperl/macos/macperl/MPFile.c#3 (text) ====
Index: perl/macos/macperl/MPFile.c
--- perl/macos/macperl/MPFile.c.~1~	Mon Jan  7 15:30:05 2002
+++ perl/macos/macperl/MPFile.c	Mon Jan  7 15:30:05 2002
@@ -9,6 +9,9 @@
 Language	:	MPW C
 
 $Log: MPFile.c,v $
+Revision 1.3  2002/01/07 08:09:35  neeri
+Eliminate nested calls to exit() (MacPerl bug #469132)
+
 Revision 1.2  2002/01/04 03:34:45  pudge
 Modifications for universal headers 3.4
 
@@ -186,6 +189,8 @@
 				CloseDeskAcc(theKind);
 		}
 	}
+	if (gQuitting && gRunningPerl)
+		gAborting = true;
 }
 
 pascal Boolean GetFileFilter(CInfoPBPtr pb)

==== //depot/maint-5.6/macperl/macos/macperl/MPMain.c#5 (text) ====
Index: perl/macos/macperl/MPMain.c
--- perl/macos/macperl/MPMain.c.~1~	Mon Jan  7 15:30:05 2002
+++ perl/macos/macperl/MPMain.c	Mon Jan  7 15:30:05 2002
@@ -9,6 +9,9 @@
 Language	:	MPW C
 
 $Log: MPMain.c,v $
+Revision 1.7  2002/01/07 08:09:36  neeri
+Eliminate nested calls to exit() (MacPerl bug #469132)
+
 Revision 1.6  2002/01/04 03:34:45  pudge
 Modifications for universal headers 3.4
 
@@ -1287,9 +1290,6 @@
 		;       /* Events are not opportune right now */
 	else
 		HandleEvent(&myEvent);
-		
-	if (gQuitting && gRunningPerl)
-		MacPerl_Exit(-128);
 }
 
 pascal long VoodooChile(Size cbNeeded)
End of Patch.