ports/154139: [NEW PORT] p5-Sys-Load

[Konstantin Menshikov]

>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 at 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 at 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 at 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 at dirrmtry %%SITE_PERL%%/mach/auto/Sys/Load
X at dirrmtry %%SITE_PERL%%/mach/auto/Sys
X at 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: