mirror of
https://git.freebsd.org/ports.git
synced 2025-04-28 09:36:41 -04:00
f03648e2d8
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
20 lines
391 B
Perl
20 lines
391 B
Perl
--- 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__
|