[81687] trunk/dports/perl

[vinc17 at macports.org]

Revision: 81687
          http://trac.macports.org/changeset/81687
Author:   vinc17 at 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);
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110804/df3e5766/attachment.html>