diff options
| author |   millert <millert@openbsd.org> | 2002-10-27 22:14:39 +0000 |
|---|---|---|
| committer | millert <millert@openbsd.org> | 2002-10-27 22:14:39 +0000 |
| commit | 55745691c11d58794cc2bb4d620ee3985f4381e6 (patch) | |
| tree | d570f77ae0fda2ab3c9daa80b06a330c16cfe79f /gnu/usr.bin/perl/cygwin/cygwin.c | |
| parent | remove MD bits from test. (diff) | |
| download | wireguard-openbsd-55745691c11d58794cc2bb4d620ee3985f4381e6.tar.xz wireguard-openbsd-55745691c11d58794cc2bb4d620ee3985f4381e6.zip | |
stock perl 5.8.0 from CPAN
Diffstat (limited to 'gnu/usr.bin/perl/cygwin/cygwin.c')
| -rw-r--r-- | gnu/usr.bin/perl/cygwin/cygwin.c | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/gnu/usr.bin/perl/cygwin/cygwin.c b/gnu/usr.bin/perl/cygwin/cygwin.c index 962a60a8d40..0e9d07d35e0 100644 --- a/gnu/usr.bin/perl/cygwin/cygwin.c +++ b/gnu/usr.bin/perl/cygwin/cygwin.c @@ -18,7 +18,7 @@ static int do_spawnvp (const char *path, const char * const *argv) { - dTHXo; + dTHX; Sigsave_t ihand,qhand; int childpid, result, status; @@ -28,7 +28,7 @@ do_spawnvp (const char *path, const char * const *argv) if (childpid < 0) { status = -1; if(ckWARN(WARN_EXEC)) - Perl_warner(aTHX_ WARN_EXEC,"Can't spawn \"%s\": %s", + Perl_warner(aTHX_ packWARN(WARN_EXEC),"Can't spawn \"%s\": %s", path,Strerror (errno)); } else { do { @@ -45,7 +45,7 @@ do_spawnvp (const char *path, const char * const *argv) int do_aspawn (SV *really, void **mark, void **sp) { - dTHXo; + dTHX; int rc; char **a,*tmps,**argv; STRLEN n_a; @@ -78,7 +78,7 @@ do_aspawn (SV *really, void **mark, void **sp) int do_spawn (char *cmd) { - dTHXo; + dTHX; char **a,*s,*metachars = "$&*(){}[]'\";\\?>|<~`\n"; const char *command[4]; @@ -147,6 +147,9 @@ XS(Cygwin_cwd) if((cwd = getcwd(NULL, -1))) { ST(0) = sv_2mortal(newSVpv(cwd, 0)); safesysfree(cwd); +#ifndef INCOMPLETE_TAINTS + SvTAINTED_on(ST(0)); +#endif XSRETURN(1); } XSRETURN_UNDEF; |