diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2002-03-20 22:56:17 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-20 21:57:22 +0000 |
| commit | f98bc0c60b037c4df60741a875da49b98d04509c (patch) | |
| tree | 9764fb451b55c02c50d715d2df803b638010b23a /win32/win32.c | |
| parent | a634c1702b9b72e0d5017b79d9c7d13ca05c52b9 (diff) | |
| download | perl-f98bc0c60b037c4df60741a875da49b98d04509c.tar.gz | |
From: "Paul Marquess" <paul_marquess@yahoo.co.uk>
Message-ID: <AIEAJICLCBDNAAOLLOKLEEEAEAAA.paul_marquess@yahoo.co.uk>
packWARN also for subdirs.
p4raw-id: //depot/perl@15378
Diffstat (limited to 'win32/win32.c')
| -rw-r--r-- | win32/win32.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/win32/win32.c b/win32/win32.c index 517a5765fe..f226d973c1 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -575,7 +575,7 @@ do_aspawn(void *vreally, void **vmark, void **vsp) else { if (status < 0) { if (ckWARN(WARN_EXEC)) - Perl_warner(aTHX_ WARN_EXEC, "Can't spawn \"%s\": %s", argv[0], strerror(errno)); + Perl_warner(aTHX_ packWARN(WARN_EXEC), "Can't spawn \"%s\": %s", argv[0], strerror(errno)); status = 255 * 256; } else @@ -690,7 +690,7 @@ do_spawn2(char *cmd, int exectype) else { if (status < 0) { if (ckWARN(WARN_EXEC)) - Perl_warner(aTHX_ WARN_EXEC, "Can't %s \"%s\": %s", + Perl_warner(aTHX_ packWARN(WARN_EXEC), "Can't %s \"%s\": %s", (exectype == EXECF_EXEC ? "exec" : "spawn"), cmd, strerror(errno)); status = 255 * 256; |