allow /proc override

This commit is contained in:
Doug MacEachern 2008-05-09 04:06:35 +00:00
parent 24c3a239ee
commit 74e788d135
2 changed files with 2 additions and 2 deletions

View File

@ -4,7 +4,7 @@ use strict;
my $match = $ARGV[0];
my $proc = "/proc";
my $proc = $ENV{PROC_FS} || "/proc";
opendir DH, $proc or die;
chdir $proc;
local $/;

View File

@ -4,7 +4,7 @@ use strict;
#examine specific field from /proc/*/stat
my $field = shift;
my $proc = "/proc";
my $proc = $ENV{PROC_FS} || "/proc";
opendir DH, $proc or die;
chdir $proc;
local $/;