diff options
Diffstat (limited to 'djgpp/djgpp.c')
| -rw-r--r-- | djgpp/djgpp.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/djgpp/djgpp.c b/djgpp/djgpp.c index ae03f21639..5c1d3c4de4 100644 --- a/djgpp/djgpp.c +++ b/djgpp/djgpp.c @@ -119,8 +119,9 @@ pclose (FILE *pp) static int convretcode (pTHX_ int rc,char *prog,int fl) { - if (rc < 0 && PL_dowarn) - Perl_warn (aTHX_ "Can't %s \"%s\": %s",fl ? "exec" : "spawn",prog,Strerror (errno)); + 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) return rc <<= 8; if (rc < 0) |