X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLinux-SysInfo.git;a=blobdiff_plain;f=SysInfo.xs;h=8e4f0dc24542bee2ee4685f51f43802472c12b1e;hp=137884f0384fe661ef8c14ec15094e621631706d;hb=HEAD;hpb=549ea374313d0ef7033d72f2e5219a7c3d092603

diff --git a/SysInfo.xs b/SysInfo.xs
index 137884f..8e4f0dc 100644
--- a/SysInfo.xs
+++ b/SysInfo.xs
@@ -10,7 +10,8 @@
 #include "perl.h"
 #include "XSUB.h"
 
-#define __PACKAGE__ "Linux::SysInfo"
+#define __PACKAGE__     "Linux::SysInfo"
+#define __PACKAGE_LEN__ (sizeof(__PACKAGE__)-1)
 
 /* --- Extended fields ----------------------------------------------------- */
 
@@ -71,7 +72,7 @@ PROTOTYPES: ENABLE
 BOOT:
 {
  HV *stash;
- stash = gv_stashpv(__PACKAGE__, TRUE);
+ stash = gv_stashpvn(__PACKAGE__, __PACKAGE_LEN__, TRUE);
  newCONSTSUB(stash, "LS_HAS_EXTENDED", newSViv(LS_HAS_EXTENDED));
 
  LS_KEY_DEFINE(uptime);
@@ -93,13 +94,13 @@ BOOT:
 }
 
 SV *sysinfo()
+PROTOTYPE:
 PREINIT:
  struct sysinfo si;
  NV l;
  HV *hv;
 CODE:
- if (sysinfo(&si) == -1)
-  XSRETURN_UNDEF;
+ if (sysinfo(&si) == -1) XSRETURN_UNDEF;
 
  hv = newHV();