X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLinux-SysInfo.git;a=blobdiff_plain;f=SysInfo.xs;h=6ec169d020ad2d58cabce64e52afe2fe7cf6576b;hp=94cdf9719f2afb3ce8a5dbb890cf1ada48737924;hb=2bb07e3d56530a3d96f3b1dcfa3ee52cec5c114c;hpb=01cae1ae25699e5619d0daa4670f0c8930b433bf

diff --git a/SysInfo.xs b/SysInfo.xs
index 94cdf97..6ec169d 100644
--- a/SysInfo.xs
+++ b/SysInfo.xs
@@ -32,7 +32,7 @@
 # define LS_KEY_STORE(H,K,V) hv_store((H), LS_KEY(K), sizeof(#K)-1, \
                                       (V), LS_HASH(K))
 #else
-# if PERL_REVISION >= 5 && PERL_VERSION >= 9 && PERL_SUBVERSION >= 3
+# if PERL_REVISION > 5 || (PERL_REVISION == 5 && (PERL_VERSION > 9 || (PERL_VERSION == 9 && PERL_SUBVERSION >= 3)))
 /* From perl-5.9.3 (#24802), the key is only a SVt_PV and one can get the hash
  * value with the SvSHARED_HASH() macro. */
 #  define LS_HASH(K)         SvSHARED_HASH(LS_KEY(K))