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

[Chris Nandor]

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.