From: Warren Jones <wjones@tc.fluke.com>
Date: Thu, 19 Jun 1997 09:57:20 +0000 (+1200)
Subject: Minor Win32 glitch with -S flag
X-Git-Tag: perl-5.004_02~54
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/e92c4225b24535b7128dd90f6a3e01d0abc79a1d?hp=392e9e906921c3a7f1b3776746e71892a57863d3

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
--- 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