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