dinislage/cpanspec
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #6 from contyk/master

Browse Source 
Escape slashes in filters
This commit is contained in:
Steven Pritchard
2014-11-12 09:59:42 -06:00
parent 533d40db4e 1052ae3f56
commit b668989a10
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
cpanspec
View File

@@ -823,6 +823,7 @@ for my $file (@args) {
} }
die "Failed to create $script: $!\n" if (!$sh); die "Failed to create $script: $!\n" if (!$sh);
map { s/\//\\\//g } @filter_requires;
print $sh "#!/bin/sh\n\n" print $sh "#!/bin/sh\n\n"
. "\@\@PERL_REQ\@\@ \"\$\@\" | sed -e '/^$filter_requires[0]\$/d'"; . "\@\@PERL_REQ\@\@ \"\$\@\" | sed -e '/^$filter_requires[0]\$/d'";
if (@filter_requires > 1) { if (@filter_requires > 1) {
@@ -845,6 +846,7 @@ for my $file (@args) {
} }
die "Failed to create $script: $!\n" if (!$sh); die "Failed to create $script: $!\n" if (!$sh);
map { s/\//\\\//g } @filter_provides;
print $sh "#!/bin/sh\n\n" print $sh "#!/bin/sh\n\n"
. "\@\@PERL_PROV\@\@ \"\$\@\" | sed -e '/^$filter_provides[0]\$/d'"; . "\@\@PERL_PROV\@\@ \"\$\@\" | sed -e '/^$filter_provides[0]\$/d'";
if (@filter_provides > 1) { if (@filter_provides > 1) {