|
Petr Šabata |
e5efed4 |
From 1052ae3f560cfb31a540fbf3ab1fe5d3343094a8 Mon Sep 17 00:00:00 2001
|
|
Petr Šabata |
e5efed4 |
From: =?UTF-8?q?Petr=20=C5=A0abata?= <contyk@redhat.com>
|
|
Petr Šabata |
e5efed4 |
Date: Thu, 6 Nov 2014 16:51:47 +0100
|
|
Petr Šabata |
e5efed4 |
Subject: [PATCH] Escape slashes in filters
|
|
Petr Šabata |
e5efed4 |
MIME-Version: 1.0
|
|
Petr Šabata |
e5efed4 |
Content-Type: text/plain; charset=UTF-8
|
|
Petr Šabata |
e5efed4 |
Content-Transfer-Encoding: 8bit
|
|
Petr Šabata |
e5efed4 |
|
|
Petr Šabata |
e5efed4 |
Simply escape slashes in --filter-requires and --filter-provides
|
|
Petr Šabata |
e5efed4 |
options, resolving a five year old bug [0].
|
|
Petr Šabata |
e5efed4 |
|
|
Petr Šabata |
e5efed4 |
[0] https://bugzilla.redhat.com/show_bug.cgi?id=544738
|
|
Petr Šabata |
e5efed4 |
|
|
Petr Šabata |
e5efed4 |
Signed-off-by: Petr Ĺ abata <contyk@redhat.com>
|
|
Petr Šabata |
e5efed4 |
---
|
|
Petr Šabata |
e5efed4 |
cpanspec | 2 ++
|
|
Petr Šabata |
e5efed4 |
1 file changed, 2 insertions(+)
|
|
Petr Šabata |
e5efed4 |
|
|
Petr Šabata |
e5efed4 |
diff --git a/cpanspec b/cpanspec
|
|
Petr Šabata |
e5efed4 |
index d972d1c..398e0de 100755
|
|
Petr Šabata |
e5efed4 |
--- a/cpanspec
|
|
Petr Šabata |
e5efed4 |
+++ b/cpanspec
|
|
Petr Šabata |
e5efed4 |
@@ -823,6 +823,7 @@ for my $file (@args) {
|
|
Petr Šabata |
e5efed4 |
}
|
|
Petr Šabata |
e5efed4 |
die "Failed to create $script: $!\n" if (!$sh);
|
|
Petr Šabata |
e5efed4 |
|
|
Petr Šabata |
e5efed4 |
+ map { s/\//\\\//g } @filter_requires;
|
|
Petr Šabata |
e5efed4 |
print $sh "#!/bin/sh\n\n"
|
|
Petr Šabata |
e5efed4 |
. "\@\@PERL_REQ\@\@ \"\$\@\" | sed -e '/^$filter_requires[0]\$/d'";
|
|
Petr Šabata |
e5efed4 |
if (@filter_requires > 1) {
|
|
Petr Šabata |
e5efed4 |
@@ -845,6 +846,7 @@ for my $file (@args) {
|
|
Petr Šabata |
e5efed4 |
}
|
|
Petr Šabata |
e5efed4 |
die "Failed to create $script: $!\n" if (!$sh);
|
|
Petr Šabata |
e5efed4 |
|
|
Petr Šabata |
e5efed4 |
+ map { s/\//\\\//g } @filter_provides;
|
|
Petr Šabata |
e5efed4 |
print $sh "#!/bin/sh\n\n"
|
|
Petr Šabata |
e5efed4 |
. "\@\@PERL_PROV\@\@ \"\$\@\" | sed -e '/^$filter_provides[0]\$/d'";
|
|
Petr Šabata |
e5efed4 |
if (@filter_provides > 1) {
|
|
Petr Šabata |
e5efed4 |
--
|
|
Petr Šabata |
e5efed4 |
1.9.3
|
|
Petr Šabata |
e5efed4 |
|