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

Workaround to support ruby as an interpreter

Browse source
This commit is contained in:
Sheena Artrip 2016-04-17 15:05:59 -04:00
parent 0423787086
commit 2989783f64
No known key found for this signature in database
GPG key ID: A4B75E82267F507D
1 changed files with 20 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
scripts/nix-build.in
View file

@ -191,18 +191,32 @@ for (my $n = 0; $n < scalar @ARGV; $n++) {
$n++; $n++;
die "$0: ‘$arg’ requires an argument\n" unless $n < scalar @ARGV; die "$0: ‘$arg’ requires an argument\n" unless $n < scalar @ARGV;
my $interpreter = $ARGV[$n]; my $interpreter = $ARGV[$n];
# Überhack to support Perl. Perl examines the shebang and my $execArgs = "";
# executes it unless it contains the string "perl" or "indir",
# or (undocumented) argv[0] does not contain "perl". Exploit
# the latter by doing "exec -a".
my $execArgs = $interpreter =~ /perl/ ? "-a PERL" : "";
sub shellEscape { sub shellEscape {
my $s = $_; my $s = $_;
$s =~ s/'/'\\''/g; $s =~ s/'/'\\''/g;
return "'" . $s . "'"; return "'" . $s . "'";
} }
# Überhack to support Perl. Perl examines the shebang and
# executes it unless it contains the string "perl" or "indir",
# or (undocumented) argv[0] does not contain "perl". Exploit
# the latter by doing "exec -a".
if ($interpreter =~ /perl/) {
$execArgs = "-a PERL";
}
if ($interpreter =~ /ruby/) {
# Hack for Ruby. Ruby also examines the shebang. It tries to
# read the shebang to understand which packages to read from. Since
# this is handled via nix-shell -p, we wrap our ruby script execution
# in ruby -e 'load' which ignores the shebangs.
$envCommand = "exec $execArgs $interpreter -e 'load(\"$script\")' -- ${\(join ' ', (map shellEscape, @savedArgs))}";
} else {
$envCommand = "exec $execArgs $interpreter $script ${\(join ' ', (map shellEscape, @savedArgs))}"; $envCommand = "exec $execArgs $interpreter $script ${\(join ' ', (map shellEscape, @savedArgs))}";
} }
}
elsif (substr($arg, 0, 1) eq "-") { elsif (substr($arg, 0, 1) eq "-") {
push @buildArgs, $arg; push @buildArgs, $arg;