mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Escape arguments to nix-shell #! scripts

Browse source
This commit is contained in:
Eelco Dolstra 2015-02-18 20:13:53 +01:00
parent dc7e8fae48
commit 1816ac0db1
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scripts/nix-build.in
View file

@ -195,8 +195,12 @@ for (my $n = 0; $n < scalar @ARGV; $n++) {
# or (undocumented) argv[0] does not contain "perl". Exploit # or (undocumented) argv[0] does not contain "perl". Exploit
# the latter by doing "exec -a". # the latter by doing "exec -a".
my $execArgs = $interpreter =~ /perl/ ? "-a PERL" : ""; my $execArgs = $interpreter =~ /perl/ ? "-a PERL" : "";
# FIXME: escape arguments. sub shellEscape {
$envCommand = "exec $execArgs $interpreter $script @savedArgs"; my $s = $_;
$s =~ s/'/'\\''/g;
return "'" . $s . "'";
}
$envCommand = "exec $execArgs $interpreter $script ${\(join ' ', (map shellEscape, @savedArgs))}";
} }
elsif (substr($arg, 0, 1) eq "-") { elsif (substr($arg, 0, 1) eq "-") {