epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Always quote Windows PATH arg's

Browse Source
This commit is contained in:
Andrew Johnson
2017-01-24 11:48:36 -06:00
parent 3e58c59377
commit a105c6f538
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/tools/convertRelease.pl
View File

@@ -119,15 +119,14 @@ sub dllPath {
unlink $outfile;
open(OUT, ">$outfile") or die "$! creating $outfile";
print OUT "\@ECHO OFF\n";
print OUT "PATH ", join(';', binDirs(), '%PATH%'), "\n";
print OUT "PATH \"", join(';', binDirs(), '%PATH%'), "\"\n";
close OUT;
}
sub relPaths {
unlink $outfile;
open(OUT, ">$outfile") or die "$! creating $outfile";
print OUT "export PATH=",
join(':', map {m/\s/ ? "\"$_\"" : $_ } binDirs(), '$PATH'), "\n";
print OUT "export PATH=\"", join(':', binDirs(), '$PATH'), "\"\n";
close OUT;
}