X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLinux-SysInfo.git;a=blobdiff_plain;f=SysInfo.xs;h=f7509c419a4edf65d0d1bc7bd95394a1dbc80535;hp=7017009371b5bb0a91fc7b06b4e04531a2626900;hb=aeb4782b4d78bdce2873eef541f5759dd9dcae42;hpb=6459a6c2b2ebbcd7a8be8fce533739ad96b1347b

diff --git a/SysInfo.xs b/SysInfo.xs
index 7017009..f7509c4 100644
--- a/SysInfo.xs
+++ b/SysInfo.xs
@@ -43,6 +43,10 @@ PROTOTYPES: ENABLE
 
 BOOT:
 {
+ HV *stash;
+ stash = gv_stashpv("Linux::SysInfo", TRUE);
+ newCONSTSUB(stash, "LS_HAS_EXTENDED", newSViv(SYSINFO_EXTENDED));
+
  SYSINFO_KEY_SET_HASH(key_uptime);
  SYSINFO_KEY_SET_HASH(key_load1);
  SYSINFO_KEY_SET_HASH(key_load5);
@@ -66,7 +70,7 @@ sysinfo()
 PREINIT:
  struct sysinfo si;
  NV l;
- HV* h;
+ HV *h;
 CODE:
  if (sysinfo(&si) == -1) {
   XSRETURN_UNDEF;
@@ -100,9 +104,3 @@ CODE:
 OUTPUT:
  RETVAL
 
-SV *
-LS_HAS_EXTENDED()
-CODE:
- RETVAL = newSViv(SYSINFO_EXTENDED); /* mortalized in RETVAL */
-OUTPUT:
- RETVAL