Revision: 81687 http://trac.macports.org/changeset/81687 Author: vinc17@macports.org Date: 2011-08-04 06:26:19 -0700 (Thu, 04 Aug 2011) Log Message: ----------- p5-sys-cpuload: new port, version 0.03 Added Paths: ----------- trunk/dports/perl/p5-sys-cpuload/ trunk/dports/perl/p5-sys-cpuload/Portfile trunk/dports/perl/p5-sys-cpuload/files/ trunk/dports/perl/p5-sys-cpuload/files/patch-CpuLoad.pm.diff trunk/dports/perl/p5-sys-cpuload/files/patch-CpuLoad.xs.diff Added: trunk/dports/perl/p5-sys-cpuload/Portfile =================================================================== --- trunk/dports/perl/p5-sys-cpuload/Portfile (rev 0) +++ trunk/dports/perl/p5-sys-cpuload/Portfile 2011-08-04 13:26:19 UTC (rev 81687) @@ -0,0 +1,16 @@ +# $Id$ + +PortSystem 1.0 +PortGroup perl5 1.0 + +perl5.setup Sys-CpuLoad 0.03 +maintainers vinc17 openmaintainer +description A module to retrieve system load averages +long_description ${description}. +platforms darwin + +checksums md5 40b7683c26e8c8d3b11ddef1c139ac27 \ + sha1 371bf186d81963c81e6891120c4eb6343d482a5d \ + rmd160 577d9d6d831e2a328f19d009ac048a8d7023ecfc + +patchfiles patch-CpuLoad.pm.diff patch-CpuLoad.xs.diff Property changes on: trunk/dports/perl/p5-sys-cpuload/Portfile ___________________________________________________________________ Added: svn:keywords + Id Added: svn:eol-style + native Added: trunk/dports/perl/p5-sys-cpuload/files/patch-CpuLoad.pm.diff =================================================================== --- trunk/dports/perl/p5-sys-cpuload/files/patch-CpuLoad.pm.diff (rev 0) +++ trunk/dports/perl/p5-sys-cpuload/files/patch-CpuLoad.pm.diff 2011-08-04 13:26:19 UTC (rev 81687) @@ -0,0 +1,20 @@ +--- CpuLoad.pm~ 2002-03-19 00:41:39.000000000 +0100 ++++ CpuLoad.pm 2011-08-04 15:05:07.000000000 +0200 +@@ -55,7 +55,7 @@ + sub load { + + # handle bsd getloadavg(). Read the README about why it is freebsd/openbsd. +- if ($cache eq 'getloadavg()' or lc $^O eq 'freebsd' or lc $^O eq 'openbsd' ) { ++ if ($cache eq 'getloadavg()' or lc $^O eq 'freebsd' or lc $^O eq 'openbsd' or lc $^O eq 'darwin') { + $cache = 'getloadavg()'; + return getbsdload() + } +@@ -83,7 +83,7 @@ + if (defined $fh) { + my $line = <$fh>; + $fh->close(); +- if ($line =~ /(\d+\.\d+)\s*,\s+(\d+\.\d+)\s*,\s+(\d+\.\d+)\s*$/) { ++ if ($line =~ /(\d+\.\d+)\s*,?\s+(\d+\.\d+)\s*,?\s+(\d+\.\d+)\s*$/) { + return ($1, $2, $3); + } # if we can parse the output of /usr/bin/uptime + } # if we could run /usr/bin/uptime Added: trunk/dports/perl/p5-sys-cpuload/files/patch-CpuLoad.xs.diff =================================================================== --- trunk/dports/perl/p5-sys-cpuload/files/patch-CpuLoad.xs.diff (rev 0) +++ trunk/dports/perl/p5-sys-cpuload/files/patch-CpuLoad.xs.diff 2011-08-04 13:26:19 UTC (rev 81687) @@ -0,0 +1,11 @@ +--- CpuLoad.xs~ 2002-03-19 00:16:14.000000000 +0100 ++++ CpuLoad.xs 2011-08-04 14:52:12.000000000 +0200 +@@ -18,7 +18,7 @@ + PREINIT: + double loadavg[3]; + PPCODE: +-#if defined(__FreeBSD__) || defined(__OpenBSD__) ++#if defined(__FreeBSD__) || defined(__OpenBSD__) || defined(__APPLE__) + getloadavg(loadavg, 3); + #endif + EXTEND(SP, 3);