diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-03-21 07:21:57 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-03-21 07:21:57 +0000 |
| commit | d6b7ef8642dbff7f74dde11fd4995a37e8f38c04 (patch) | |
| tree | 514a910b6cf95741dcc0cfcb9c933516785d103b /djgpp | |
| parent | 4cbf5a93b15a5783cbe69de6f4f935df308853d2 (diff) | |
| download | perl-d6b7ef8642dbff7f74dde11fd4995a37e8f38c04.tar.gz | |
Integrate mainline (Win2k/MinGW all ok except threads/t/end.t)
p4raw-id: //depot/perlio@15382
Diffstat (limited to 'djgpp')
| -rw-r--r-- | djgpp/djgpp.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/djgpp/djgpp.c b/djgpp/djgpp.c index 6aa290ec53..d770cefb96 100644 --- a/djgpp/djgpp.c +++ b/djgpp/djgpp.c @@ -106,7 +106,7 @@ static int convretcode (pTHX_ int rc,char *prog,int fl) { if (rc < 0 && ckWARN(WARN_EXEC)) - Perl_warner(aTHX_ WARN_EXEC,"Can't %s \"%s\": %s", + Perl_warner(aTHX_ packWARN(WARN_EXEC),"Can't %s \"%s\": %s", fl ? "exec" : "spawn",prog,Strerror (errno)); if (rc >= 0) return rc << 8; |