diff options
| author | Steve Wills <swills@FreeBSD.org> | 2011-01-29 20:00:32 +0000 |
|---|---|---|
| committer | Steve Wills <swills@FreeBSD.org> | 2011-01-29 20:00:32 +0000 |
| commit | f03648e2d817af6fcc0133a35b9bb35d39f579c6 (patch) | |
| tree | 3eddcb4aff02038a75f82ab1e1947552c81278c6 /sysutils/p5-Sys-Load/files/patch-Load.pm | |
| parent | - Update to 1.78 (diff) | |
Sys::Load - Perl module for getting the current system load and uptime
WWW: http://search.cpan.org/dist/Sys-Load/
PR: ports/154139
Submitted by: Konstantin Menshikov <kostjnspb at yandex.ru>
Approved by: pgollucci (mentor)
Feature safe: yes
Notes
Notes:
svn path=/head/; revision=268397
Diffstat (limited to 'sysutils/p5-Sys-Load/files/patch-Load.pm')
| -rw-r--r-- | sysutils/p5-Sys-Load/files/patch-Load.pm | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/sysutils/p5-Sys-Load/files/patch-Load.pm b/sysutils/p5-Sys-Load/files/patch-Load.pm new file mode 100644 index 000000000000..6654c8e67e08 --- /dev/null +++ b/sysutils/p5-Sys-Load/files/patch-Load.pm @@ -0,0 +1,20 @@ +--- Load.pm 2002-09-01 09:54:44.000000000 +0000 ++++ Load.pm 2011-01-19 12:07:33.000000000 +0000 +@@ -17,17 +17,6 @@ + bootstrap Sys::Load $VERSION; + + # Preloaded methods go here. +- +-use constant UPTIME => "/proc/uptime"; +- +-sub uptime { +- open(FILE, UPTIME) || return 0; +- my $line = <FILE>; +- my($uptime, $idle) = split /\s+/, $line; +- close FILE; +- return $uptime; +-} +- + 1; + + __END__ |