From b352fe2775d09993add893ebff8c0c4c8369182a Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <eelco.dolstra@logicblox.com>
Date: Fri, 20 Dec 2013 14:18:24 +0100
Subject: [PATCH] Revert "Scan /proc/<pid>/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;