X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=djgpp%2Fdjgpp.c;h=c928851b766c1b7fe0d395d3b3f4c576b407447b;hb=706de38c2aa2b981f7071fda099501bf2cc8caeb;hp=5a8fc5fa5c86f7f70fc120aec8214a5ea4366b72;hpb=c529f79d594c53d3968d464c57ac24a21137dd09;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/djgpp/djgpp.c b/djgpp/djgpp.c
index 5a8fc5f..c928851 100644
--- a/djgpp/djgpp.c
+++ b/djgpp/djgpp.c
@@ -122,11 +122,9 @@ convretcode (pTHX_ int rc,char *prog,int fl)
     if (rc < 0 && ckWARN(WARN_EXEC))
         Perl_warner(aTHX_ WARN_EXEC,"Can't %s \"%s\": %s",
 		    fl ? "exec" : "spawn",prog,Strerror (errno));
-    if (rc > 0)
+    if (rc >= 0)
         return rc << 8;
-    if (rc < 0)
-        return 255 << 8;
-    return 0;
+    return -1;
 }
 
 int