diff options
| author | Warren Jones <wjones@tc.fluke.com> | 1997-06-19 21:57:20 +1200 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-08-07 00:00:00 +1200 |
| commit | e92c4225b24535b7128dd90f6a3e01d0abc79a1d (patch) | |
| tree | 9bc85fa04fd7dc9d907b8099c46576faaf46e767 /perl.c | |
| parent | 392e9e906921c3a7f1b3776746e71892a57863d3 (diff) | |
| download | perl-e92c4225b24535b7128dd90f6a3e01d0abc79a1d.tar.gz | |
Minor Win32 glitch with -S flag
This is a bug report for perl from wjones@tc.fluke.com,
generated with the help of perlbug 1.17 running under perl 5.004.
p5p-msgid: 97Jun19.150511pdt.35717-2@gateway.fluke.com
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -1656,7 +1656,11 @@ SV *sv; continue; /* don't search dir with too-long name */ strcat(tokenbuf, scriptname); #else /* !VMS */ - if (dosearch && !strchr(scriptname, '/') && (s = getenv("PATH"))) { + if (dosearch && !strchr(scriptname, '/') +#ifdef DOSISH + && !strchr(scriptname, '\\') +#endif + && (s = getenv("PATH"))) { bufend = s + strlen(s); while (s < bufend) { #ifndef atarist |