diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-27 17:12:41 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-27 17:12:41 +0000 |
| commit | 706de38c2aa2b981f7071fda099501bf2cc8caeb (patch) | |
| tree | 32aa0ced28b042dc1e42b9102ceac21cd1dbab96 /djgpp/djgpp.c | |
| parent | 11fe14b1c777b120f18b8463917f305b1af20e90 (diff) | |
| download | perl-706de38c2aa2b981f7071fda099501bf2cc8caeb.tar.gz | |
djgpp update (from Laszlo Molnar)
p4raw-id: //depot/perl@5288
Diffstat (limited to 'djgpp/djgpp.c')
| -rw-r--r-- | djgpp/djgpp.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/djgpp/djgpp.c b/djgpp/djgpp.c index 5a8fc5fa5c..c928851b76 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 |