[asperl] add AS patch#22 (fix to make die_exit.t pass)

p4raw-id: //depot/asperl@1037

diff --git a/win32/runperl.c b/win32/runperl.c
index 9f8c26a..ccb8806 100644 (file)
--- a/win32/runperl.c
+++ b/win32/runperl.c
@@ -938,6 +938,7 @@ public:
            win32_fprintf(stderr, "Error: Parse exception\n");
            retVal = -1;
        }
+       *win32_errno() = 0;
        return retVal;
     };
     inline int PerlRun(void)