From b352fe2775d09993add893ebff8c0c4c8369182a Mon Sep 17 00:00:00 2001 From: Eelco Dolstra Date: Fri, 20 Dec 2013 14:18:24 +0100 Subject: [PATCH] Revert "Scan /proc//cmdline for GC roots" This reverts commit 194e3374b89b8b2dec6296923877304bdb5c6ae2. Checking the command line for GC roots means that $ nix-store --delete $path will fail because $path is now a root because it's mentioned on the command line. --- scripts/find-runtime-roots.pl.in | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/scripts/find-runtime-roots.pl.in b/scripts/find-runtime-roots.pl.in index 2e04a635e..e1a2dde55 100755 --- a/scripts/find-runtime-roots.pl.in +++ b/scripts/find-runtime-roots.pl.in @@ -15,6 +15,8 @@ sub readProc { my $process = "/proc/$name"; + #print STDERR "=== $process\n"; + my $target; print "$target\n" if $target = readlink "$process/exe"; print "$target\n" if $target = readlink "$process/cwd"; @@ -36,17 +38,11 @@ sub readProc { } # Get all store paths that appear in the environment of this process. - my $re = "\Q$Nix::Config::storeDir\E\/[0-9a-z]+[0-9a-zA-Z\+\-\._\?=]*"; eval { my $env = Nix::Utils::readFile "$process/environ"; - my @matches = $env =~ /$re/g; + my @matches = $env =~ /\Q$Nix::Config::storeDir\E\/[0-9a-z]+[0-9a-zA-Z\+\-\._\?=]*/g; print "$_\n" foreach @matches; - }; - eval { - my $cmdline = Nix::Utils::readFile "$process/cmdline"; - my @matches = $cmdline =~ /$re/g; - print "$_\n" foreach @matches; - }; + } } closedir DIR;