X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=cygwin%2Fcygwin.c;h=962a60a8d4057060c23467de1a864814b4757eae;hb=117dada22e1a48990acd498dee229f361feda1fa;hp=33ea4db16b44ffa77d8056a73ea30cf7b025c6cd;hpb=47dafe4d9a4e294fab4b6131bb296dc386e0dcbc;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/cygwin/cygwin.c b/cygwin/cygwin.c
index 33ea4db..962a60a 100644
--- a/cygwin/cygwin.c
+++ b/cygwin/cygwin.c
@@ -27,11 +27,9 @@ do_spawnvp (const char *path, const char * const *argv)
     childpid = spawnvp(_P_NOWAIT,path,argv);
     if (childpid < 0) {
 	status = -1;
-	if(ckWARN(WARN_EXEC)) {
-	    dTHR;
+	if(ckWARN(WARN_EXEC))
 	    Perl_warner(aTHX_ WARN_EXEC,"Can't spawn \"%s\": %s",
 		    path,Strerror (errno));
-	}
     } else {
 	do {
 	    result = wait4pid(childpid, &status, 0);