61b7cab481
Since 03eaa48 added perl.withPackages, there is a canonical way to
create a perl interpreter from a list of libraries, for use in script
shebangs or generic build inputs. This method is declarative (what we
are doing is clear), produces short shebangs[1] and needs not to wrap
existing scripts.
Unfortunately there are a few exceptions that I've found:
1. Scripts that are calling perl with the -T switch. This makes perl
ignore PERL5LIB, which is what perl.withPackages is using to inform
the interpreter of the library paths.
2. Perl packages that depends on libraries in their own path. This
is not possible because perl.withPackages works at build time. The
workaround is to add `-I $out/${perl.libPrefix}` to the shebang.
In all other cases I propose to switch to perl.withPackages.
[1]: https://lwn.net/Articles/779997/
53 lines
1.5 KiB
Perl
53 lines
1.5 KiB
Perl
#! @perl@/bin/perl -w
|
|
|
|
use strict;
|
|
use DBI;
|
|
use DBD::SQLite;
|
|
use String::ShellQuote;
|
|
use Config;
|
|
|
|
my $program = $ARGV[0];
|
|
|
|
my $dbPath = "@dbPath@";
|
|
|
|
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbPath", "", "")
|
|
or die "cannot open database `$dbPath'";
|
|
$dbh->{RaiseError} = 0;
|
|
$dbh->{PrintError} = 0;
|
|
|
|
my $system = $ENV{"NIX_SYSTEM"} // $Config{myarchname};
|
|
|
|
my $res = $dbh->selectall_arrayref(
|
|
"select package from Programs where system = ? and name = ?",
|
|
{ Slice => {} }, $system, $program);
|
|
|
|
if (!defined $res || scalar @$res == 0) {
|
|
print STDERR "$program: command not found\n";
|
|
} elsif (scalar @$res == 1) {
|
|
my $package = @$res[0]->{package};
|
|
if ($ENV{"NIX_AUTO_INSTALL"} // "") {
|
|
print STDERR <<EOF;
|
|
The program '$program' is currently not installed. It is provided by
|
|
the package '$package', which I will now install for you.
|
|
EOF
|
|
;
|
|
exit 126 if system("nix-env", "-iA", "nixos.$package") == 0;
|
|
} elsif ($ENV{"NIX_AUTO_RUN"} // "") {
|
|
exec("nix-shell", "-p", $package, "--run", shell_quote("exec", @ARGV));
|
|
} else {
|
|
print STDERR <<EOF;
|
|
The program '$program' is not in your PATH. You can make it available in an
|
|
ephemeral shell by typing:
|
|
nix-shell -p $package
|
|
EOF
|
|
}
|
|
} else {
|
|
print STDERR <<EOF;
|
|
The program '$program' is not in your PATH. It is provided by several packages.
|
|
You can make it available in an ephemeral shell by typing one of the following:
|
|
EOF
|
|
print STDERR " nix-shell -p $_->{package}\n" foreach @$res;
|
|
}
|
|
|
|
exit 127;
|