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

diff --git a/perl.c b/perl.c
index 7c84173..f757d11 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -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