34484a
From e80af1fd276d83858d27742ea887415e3263960b Mon Sep 17 00:00:00 2001
34484a
From: Tony Cook <tony@develop-help.com>
34484a
Date: Wed, 12 Oct 2016 10:42:47 +1100
34484a
Subject: [PATCH] (perl 129183) don't treat \ as an escape in PATH for -S
34484a
MIME-Version: 1.0
34484a
Content-Type: text/plain; charset=UTF-8
34484a
Content-Transfer-Encoding: 8bit
34484a
34484a
Signed-off-by: Petr Písař <ppisar@redhat.com>
34484a
---
34484a
 util.c | 5 ++---
34484a
 1 file changed, 2 insertions(+), 3 deletions(-)
34484a
34484a
diff --git a/util.c b/util.c
34484a
index 5bb0dfc..6bc2fe5 100644
34484a
--- a/util.c
34484a
+++ b/util.c
34484a
@@ -3352,9 +3352,8 @@ Perl_find_script(pTHX_ const char *scriptname, bool dosearch,
34484a
 	    if (len < sizeof tmpbuf)
34484a
 		tmpbuf[len] = '\0';
34484a
 #  else
34484a
-	    s = delimcpy(tmpbuf, tmpbuf + sizeof tmpbuf, s, bufend,
34484a
-			':',
34484a
-			&len;;
34484a
+	    s = delimcpy_no_escape(tmpbuf, tmpbuf + sizeof tmpbuf, s, bufend,
34484a
+                                   ':', &len;;
34484a
 #  endif
34484a
 	    if (s < bufend)
34484a
 		s++;
34484a
-- 
34484a
2.9.4
34484a