Importing Linux-SysInfo-0.02.tar.gz

diff --git a/Changes b/Changes
index 8c5dd929b4ad2858861b862d763d6e5992f91f3d..d2abddc04db4151216488062eff2955b767011ab 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,11 @@
 Revision history for Linux-SysInfo
 
+0.02   2007-04-18 10:18 UTC
+       + Fix : Load average raw values have to be shifted on a platform
+               dependant way. They are now correctly reported.
+       + Fix : Missing META.yml
+       + Doc : Information about binary compatibility.
+
 0.01    2007-04-11 12:45 UTC
-        First version, released on an unsuspecting world.
+        * First version, released on an unsuspecting world.
 

diff --git a/MANIFEST b/MANIFEST
index 359ca9ec25f9f0ee3e416dac1052b86dccc032e1..03999d1c6f356f8ecb168361451d5c2f175f4746 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1,6 +1,6 @@
 Changes
 MANIFEST
-META.yml # Will be created by "make dist"
+META.yml
 Makefile.PL
 README
 SysInfo.xs

diff --git a/META.yml b/META.yml
new file mode 100644 (file)
index 0000000..99ca604
--- /dev/null
+++ b/META.yml
@@ -0,0 +1,14 @@
+--- #YAML:1.0
+name:                Linux-SysInfo
+version:             0.02
+abstract:            Perl interface to the sysinfo(2) Linux system call.
+license:             ~
+generated_by:        ExtUtils::MakeMaker version 6.32
+distribution_type:   module
+requires:     
+    Test::More:                    0
+meta-spec:
+    url:     http://module-build.sourceforge.net/META-spec-v1.2.html
+    version: 1.2
+author:
+    - Vincent Pit <perl@profvince.com>

diff --git a/README b/README
index 47fe5f467aef3995cf1175cab0176854e160cf12..185d16cce0be6e23b03c807a58c7a01a07da0471 100644 (file)
--- a/README
+++ b/README
@@ -2,7 +2,7 @@ NAME
     Linux::SysInfo - Perl interface to the sysinfo(2) Linux system call.
 
 VERSION
-    Version 0.01
+    Version 0.02
 
 SYNOPSIS
         use Linux::SysInfo qw/sysinfo/;
@@ -72,6 +72,15 @@ CONSTANTS
     This constant is set to 1 if your kernel supports the three extended
     fields "totalhigh", "freehigh" and "mem_unit" ; and to 0 otherwise.
 
+BINARY COMPATIBILITY
+    If you upgrade your kernel to a greater version than 2.3.23 on i386 or
+    2.3.48 on any other platform, you will need to rebuild the module to
+    access the extended fields.
+
+    Moreover, since the perl hash function has changed after the 5.6
+    version, you will also need to recompile the module if you upgrade your
+    perl from a version earlier than 5.6.
+
 SEE ALSO
     The sysinfo(2) man page.
 

diff --git a/SysInfo.xs b/SysInfo.xs
index 9874185ebfd19c27e899b1b7a96356bdd6de2144..7017009371b5bb0a91fc7b06b4e04531a2626900 100644 (file)
--- a/SysInfo.xs
+++ b/SysInfo.xs
@@ -2,8 +2,8 @@
 #include "perl.h"
 #include "XSUB.h"
 
-#include <linux/version.h>
-#include <sys/sysinfo.h>
+#include <linux/version.h> /* LINUX_VERSION_CODE, KERNEL_VERSION() */
+#include <sys/sysinfo.h>   /* <struct sysinfo>, sysinfo(), SI_LOAD_SHIFT */
 
 #if ((defined(__i386__) || defined(__x86_64__)) && (LINUX_VERSION_CODE >= KERNEL_VERSION(2, 3, 23))) || (LINUX_VERSION_CODE >= KERNEL_VERSION(2, 3, 48))
 # define SYSINFO_EXTENDED 1
@@ -65,19 +65,24 @@ SV *
 sysinfo()
 PREINIT:
  struct sysinfo si;
+ NV l;
  HV* h;
 CODE:
  if (sysinfo(&si) == -1) {
   XSRETURN_UNDEF;
  }
 
- h = newHV();
-/* sv_2mortal((SV *) h); */
+ h = newHV(); /* mortalized in RETVAL */
 
  SYSINFO_KEY_STORE(h, key_uptime,    newSViv(si.uptime));
- SYSINFO_KEY_STORE(h, key_load1,     newSVuv(si.loads[0]));
- SYSINFO_KEY_STORE(h, key_load5,     newSVuv(si.loads[1]));
- SYSINFO_KEY_STORE(h, key_load15,    newSVuv(si.loads[2]));
+
+ l = ((NV) si.loads[0]) / ((NV) (((U32) 1) << ((U32) SI_LOAD_SHIFT)));
+ SYSINFO_KEY_STORE(h, key_load1,     newSVnv(l));
+ l = ((NV) si.loads[1]) / ((NV) (((U32) 1) << ((U32) SI_LOAD_SHIFT)));
+ SYSINFO_KEY_STORE(h, key_load5,     newSVnv(l));
+ l = ((NV) si.loads[2]) / ((NV) (((U32) 1) << ((U32) SI_LOAD_SHIFT)));
+ SYSINFO_KEY_STORE(h, key_load15,    newSVnv(l));
+
  SYSINFO_KEY_STORE(h, key_totalram,  newSVuv(si.totalram));
  SYSINFO_KEY_STORE(h, key_freeram,   newSVuv(si.freeram));
  SYSINFO_KEY_STORE(h, key_sharedram, newSVuv(si.sharedram));
@@ -98,6 +103,6 @@ OUTPUT:
 SV *
 LS_HAS_EXTENDED()
 CODE:
- RETVAL = newSViv(SYSINFO_EXTENDED);
+ RETVAL = newSViv(SYSINFO_EXTENDED); /* mortalized in RETVAL */
 OUTPUT:
  RETVAL

diff --git a/lib/Linux/SysInfo.pm b/lib/Linux/SysInfo.pm
index 8b7eb0e694414e834ea1aed1a8e1476cbadef2ee..0e49377b2a7ab382c3561d4400694d20af537c7e 100644 (file)
--- a/lib/Linux/SysInfo.pm
+++ b/lib/Linux/SysInfo.pm
@@ -9,11 +9,11 @@ Linux::SysInfo - Perl interface to the sysinfo(2) Linux system call.
 
 =head1 VERSION
 
-Version 0.01
+Version 0.02
 
 =cut
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 =head1 SYNOPSIS
 
@@ -112,6 +112,12 @@ Memory unit size in bytes.
 
 This constant is set to 1 if your kernel supports the three extended fields C<totalhigh>, C<freehigh> and C<mem_unit> ; and to 0 otherwise.
 
+=head1 BINARY COMPATIBILITY
+
+If you upgrade your kernel to a greater version than 2.3.23 on i386 or 2.3.48 on any other platform, you will need to rebuild the module to access the extended fields.
+
+Moreover, since the perl hash function has changed after the 5.6 version, you will also need to recompile the module if you upgrade your perl from a version earlier than 5.6.
+
 =head1 SEE ALSO
 
 The C<sysinfo(2)> man page.