diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-05 05:48:16 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-05 05:48:16 +0000 |
| commit | 411caa507cab4ba311ec4000c486ad2592d51146 (patch) | |
| tree | 1528f3b10157445edf526b3779d7a7733f181fae /cygwin/cygwin.c | |
| parent | 8fed10cdafa32ef4e1990378c72a599fc726f7a0 (diff) | |
| download | perl-411caa507cab4ba311ec4000c486ad2592d51146.tar.gz | |
dTHR is a nop in 5.6.0 onwards. Ergo, it can go.
p4raw-id: //depot/perl@7984
Diffstat (limited to 'cygwin/cygwin.c')
| -rw-r--r-- | cygwin/cygwin.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/cygwin/cygwin.c b/cygwin/cygwin.c index 33ea4db16b..962a60a8d4 100644 --- a/cygwin/cygwin.c +++ b/cygwin/cygwin.c @@ -27,11 +27,9 @@ do_spawnvp (const char *path, const char * const *argv) childpid = spawnvp(_P_NOWAIT,path,argv); if (childpid < 0) { status = -1; - if(ckWARN(WARN_EXEC)) { - dTHR; + if(ckWARN(WARN_EXEC)) Perl_warner(aTHX_ WARN_EXEC,"Can't spawn \"%s\": %s", path,Strerror (errno)); - } } else { do { result = wait4pid(childpid, &status, 0); |