Date: Wed, 19 Jan 2011 12:32:52 GMT From: Konstantin Menshikov <kostjnspb@yandex.ru> To: freebsd-gnats-submit@FreeBSD.org Subject: ports/154139: [NEW PORT] p5-Sys-Load Message-ID: <201101191232.p0JCWqmU029293@red.freebsd.org> Resent-Message-ID: <201101191240.p0JCe7A0007399@freefall.freebsd.org>
next in thread | raw e-mail | index | archive | help
>Number: 154139 >Category: ports >Synopsis: [NEW PORT] p5-Sys-Load >Confidential: no >Severity: non-critical >Priority: low >Responsible: freebsd-ports-bugs >State: open >Quarter: >Keywords: >Date-Required: >Class: change-request >Submitter-Id: current-users >Arrival-Date: Wed Jan 19 12:40:07 UTC 2011 >Closed-Date: >Last-Modified: >Originator: Konstantin Menshikov >Release: 8.1-STABLE >Organization: >Environment: FreeBSD hc.dev.kostjn.pht 8.1-STABLE FreeBSD 8.1-STABLE #0: Fri Aug 13 16:42:11 MSD 2010 root@kostjn.pht:/usr/obj/usr/src/sys/DTRACE i386 >Description: Sys::Load - Perl module for getting the current system load and uptime >How-To-Repeat: >Fix: Patch attached with submission follows: # This is a shell archive. Save it in a file, remove anything before # this line, and then unpack it by entering "sh file". Note, it may # create directories; files and directories will be owned by you and # have default permissions. # # This archive contains: # # /usr/ports/sysutils/p5-Sys-Load/ # /usr/ports/sysutils/p5-Sys-Load/Makefile # /usr/ports/sysutils/p5-Sys-Load/distinfo # /usr/ports/sysutils/p5-Sys-Load/pkg-descr # /usr/ports/sysutils/p5-Sys-Load/pkg-plist # /usr/ports/sysutils/p5-Sys-Load/files # /usr/ports/sysutils/p5-Sys-Load/files/patch-Load.pm # /usr/ports/sysutils/p5-Sys-Load/files/patch-Load.xs # echo c - /usr/ports/sysutils/p5-Sys-Load/ mkdir -p /usr/ports/sysutils/p5-Sys-Load/ > /dev/null 2>&1 echo x - /usr/ports/sysutils/p5-Sys-Load/Makefile sed 's/^X//' >/usr/ports/sysutils/p5-Sys-Load/Makefile << '5d1b5105267eb8fbc932b724868e920d' X# New ports collection makefile for: p5-Sys-Load X# Date created: 19 January 2010 X# Whom: Konstantin Menshikov <kostjnspb@yandex.ru> X# X# $FreeBSD$ X# X XPORTNAME= Sys-Load XPORTVERSION= 0.2 XCATEGORIES= sysutils perl5 XMASTER_SITES= CPAN \ X http://kostjn.spb.ru/freebsd/ XPKGNAMEPREFIX= p5- X XMAINTAINER= kostjnspb@yandex.ru XCOMMENT= Getting the current system load and uptime X XPERL_CONFIGURE= YES X XMAN3= Sys::Load.3 X X.include <bsd.port.mk> 5d1b5105267eb8fbc932b724868e920d echo x - /usr/ports/sysutils/p5-Sys-Load/distinfo sed 's/^X//' >/usr/ports/sysutils/p5-Sys-Load/distinfo << '06a7d0584381b8a8fd27bf3e225382d3' XSHA256 (Sys-Load-0.2.tar.gz) = 27ef03e0fc455cf51b363b1a10609233de105aa3f3d51086a0a9244b1581275d XSIZE (Sys-Load-0.2.tar.gz) = 1794 06a7d0584381b8a8fd27bf3e225382d3 echo x - /usr/ports/sysutils/p5-Sys-Load/pkg-descr sed 's/^X//' >/usr/ports/sysutils/p5-Sys-Load/pkg-descr << '6a1d72710677d72346a0c688510e1efc' XSys::Load - Perl module for getting the current system load and uptime X XWWW: http://search.cpan.org/dist/Sys-Load/ 6a1d72710677d72346a0c688510e1efc echo x - /usr/ports/sysutils/p5-Sys-Load/pkg-plist sed 's/^X//' >/usr/ports/sysutils/p5-Sys-Load/pkg-plist << '7193c3b3f36db46f32f7bce9e94af575' X%%SITE_PERL%%/mach/auto/Sys/Load/.packlist X%%SITE_PERL%%/mach/auto/Sys/Load/Load.so X%%SITE_PERL%%/mach/auto/Sys/Load/Load.bs X%%SITE_PERL%%/mach/Sys/Load.pm X@dirrmtry %%SITE_PERL%%/mach/auto/Sys/Load X@dirrmtry %%SITE_PERL%%/mach/auto/Sys X@dirrmtry %%SITE_PERL%%/mach/Sys 7193c3b3f36db46f32f7bce9e94af575 echo c - /usr/ports/sysutils/p5-Sys-Load/files mkdir -p /usr/ports/sysutils/p5-Sys-Load/files > /dev/null 2>&1 echo x - /usr/ports/sysutils/p5-Sys-Load/files/patch-Load.pm sed 's/^X//' >/usr/ports/sysutils/p5-Sys-Load/files/patch-Load.pm << '0c9909ca40e64d0edf32fe2eb1ee49a8' X--- Load.pm 2002-09-01 09:54:44.000000000 +0000 X+++ Load.pm 2011-01-19 12:07:33.000000000 +0000 X@@ -17,17 +17,6 @@ X bootstrap Sys::Load $VERSION; X X # Preloaded methods go here. X- X-use constant UPTIME => "/proc/uptime"; X- X-sub uptime { X- open(FILE, UPTIME) || return 0; X- my $line = <FILE>; X- my($uptime, $idle) = split /\s+/, $line; X- close FILE; X- return $uptime; X-} X- X 1; X X __END__ 0c9909ca40e64d0edf32fe2eb1ee49a8 echo x - /usr/ports/sysutils/p5-Sys-Load/files/patch-Load.xs sed 's/^X//' >/usr/ports/sysutils/p5-Sys-Load/files/patch-Load.xs << '1c450ae639c5993c35bfb771f87bcf57' X--- Load.xs 2002-08-31 02:00:32.000000000 +0000 X+++ Load.xs 2011-01-19 12:07:14.000000000 +0000 X@@ -2,6 +2,7 @@ X #include "perl.h" X #include "XSUB.h" X #include "stdlib.h" X+#include <time.h> X X X MODULE = Sys::Load PACKAGE = Sys::Load X@@ -22,3 +23,16 @@ X XPUSHs(sv_2mortal(newSVnv(load[2]))); X } X X+void X+uptime() X+PROTOTYPE: X+PREINIT: X+ struct timespec t; X+ int i; X+PPCODE: X+ i = clock_gettime(CLOCK_MONOTONIC, &t); X+ if(i == -1) X+ XSRETURN_EMPTY; X+ else { X+ XPUSHs(sv_2mortal(newSVnv(t.tv_sec))); X+ } 1c450ae639c5993c35bfb771f87bcf57 exit >Release-Note: >Audit-Trail: >Unformatted:
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201101191232.p0JCWqmU029293>