From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 27 May 1998 16:18:30 +0000 (+0000)
Subject: [asperl] add AS patch#22 (fix to make die_exit.t pass)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e4319c1dd6af31a85af75da0d443a1457a4ae0f7;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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)