allow /proc override
This commit is contained in:
parent
24c3a239ee
commit
74e788d135
@ -4,7 +4,7 @@ use strict;
|
|||||||
|
|
||||||
my $match = $ARGV[0];
|
my $match = $ARGV[0];
|
||||||
|
|
||||||
my $proc = "/proc";
|
my $proc = $ENV{PROC_FS} || "/proc";
|
||||||
opendir DH, $proc or die;
|
opendir DH, $proc or die;
|
||||||
chdir $proc;
|
chdir $proc;
|
||||||
local $/;
|
local $/;
|
||||||
|
@ -4,7 +4,7 @@ use strict;
|
|||||||
#examine specific field from /proc/*/stat
|
#examine specific field from /proc/*/stat
|
||||||
my $field = shift;
|
my $field = shift;
|
||||||
|
|
||||||
my $proc = "/proc";
|
my $proc = $ENV{PROC_FS} || "/proc";
|
||||||
opendir DH, $proc or die;
|
opendir DH, $proc or die;
|
||||||
chdir $proc;
|
chdir $proc;
|
||||||
local $/;
|
local $/;
|
||||||
|
Loading…
Reference in New Issue
Block a user