find-runtime-roots.pl: Don't hardcode /nix/store

This commit is contained in:
Eelco Dolstra 2013-04-26 12:15:54 +02:00
parent 0374d94437
commit 4ddd077bfa

View file

@ -2,6 +2,7 @@
use strict;
use Nix::Utils;
use Nix::Config;
sub readProc {
@ -39,7 +40,7 @@ sub readProc {
# Get all store paths that appear in the environment of this process.
eval {
my $env = Nix::Utils::readFile "$process/environ";
my @matches = $env =~ /\/nix\/store\/[0-9a-z]+[0-9a-zA-Z\+\-\._\?=]*/g;
my @matches = $env =~ /\Q$Nix::Config::storeDir\E\/[0-9a-z]+[0-9a-zA-Z\+\-\._\?=]*/g;
print "$_\n" foreach @matches;
}
}