Allow spaces in --prefix path

coke · coke · commit 1ff01d256a67 · 2013-06-08T21:36:35.000-04:00
diff --git a/tools/lib/NQP/Configure.pm b/tools/lib/NQP/Configure.pm
@@ -132,7 +132,7 @@ END
             }
             close($PARROT_CONFIG) or die $!;
         }
-        elsif (open my $PARROT, '-|', "$file parrot-config.pir") {
+        elsif (open my $PARROT, '-|', "\"$file\" parrot-config.pir") {
             while (<$PARROT>) {
                 if (/^([\w:]+)=(.*)/) { $config{$1} = $2 }
             }
@@ -165,7 +165,7 @@ sub fill_template_text {
 
     my $escape = sub {
         my $str = $_[0];
-        $str =~ s{ }{\\\\ }g;
+        $str =~ s{ }{\\ }g;
         $str;
     };
 

Original file line number	Diff line number	Diff line change
`@@ -132,7 +132,7 @@ END`
`132`	`132`	`}`
`133`	`133`	`close($PARROT_CONFIG) or die $!;`
`134`	`134`	`}`
`135`		`- elsif (open my $PARROT, '-\|', "$file parrot-config.pir") {`
	`135`	`+ elsif (open my $PARROT, '-\|', "\"$file\" parrot-config.pir") {`
`136`	`136`	`while (<$PARROT>) {`
`137`	`137`	`if (/^([\w:]+)=(.*)/) { $config{$1} = $2 }`
`138`	`138`	`}`
`@@ -165,7 +165,7 @@ sub fill_template_text {`
`165`	`165`
`166`	`166`	`my $escape = sub {`
`167`	`167`	`my $str = $_[0];`
`168`		`- $str =~ s{ }{\\\\ }g;`
	`168`	`+ $str =~ s{ }{\\ }g;`
`169`	`169`	`$str;`
`170`	`170`	`};`
`171`	`171`