From e92c4225b24535b7128dd90f6a3e01d0abc79a1d Mon Sep 17 00:00:00 2001
From: Warren Jones <wjones@tc.fluke.com>
Date: Thu, 19 Jun 1997 21:57:20 +1200
Subject: [PATCH] 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
---
 perl.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/perl.c b/perl.c
index 7c84173..f757d11 100644
--- 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
-- 
1.8.3.1