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

[Chris Nandor]

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.