Merge pull request #6 from contyk/master

Escape slashes in filters
2014-11-12 09:59:42 -06:00
parent 533d40db4e 1052ae3f56
commit b668989a10
1 changed files with 2 additions and 0 deletions
--- a/2
+++ b/2
@@ -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) {