From 1052ae3f560cfb31a540fbf3ab1fe5d3343094a8 Mon Sep 17 00:00:00 2001

From: =?UTF-8?q?Petr=20=C5=A0abata?= <contyk@redhat.com>

Date: Thu, 6 Nov 2014 16:51:47 +0100

Subject: [PATCH] Escape slashes in filters

MIME-Version: 1.0

Content-Type: text/plain; charset=UTF-8

Content-Transfer-Encoding: 8bit

Simply escape slashes in --filter-requires and --filter-provides

options, resolving a five year old bug [0].

[0] https://bugzilla.redhat.com/show_bug.cgi?id=544738

Signed-off-by: Petr Ĺ abata <contyk@redhat.com>

---

 cpanspec | 2 ++

 1 file changed, 2 insertions(+)

diff --git a/cpanspec b/cpanspec

index d972d1c..398e0de 100755

--- a/cpanspec

+++ b/cpanspec

@@ -823,6 +823,7 @@ for my $file (@args) {

         }

         die "Failed to create $script: $!\n" if (!$sh);

+        map { s/\//\\\//g } @filter_requires;

         print $sh "#!/bin/sh\n\n"

             . "\@\@PERL_REQ\@\@ \"\$\@\" | sed -e '/^$filter_requires[0]\$/d'";

         if (@filter_requires > 1) {

@@ -845,6 +846,7 @@ for my $file (@args) {

         }

         die "Failed to create $script: $!\n" if (!$sh);

+        map { s/\//\\\//g } @filter_provides;

         print $sh "#!/bin/sh\n\n"

             . "\@\@PERL_PROV\@\@ \"\$\@\" | sed -e '/^$filter_provides[0]\$/d'";

         if (@filter_provides > 1) {

-- 

1.9.3