This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
This isn't an LVALUE, so make the compiler enforce that.
authorNicholas Clark <nick@ccl4.org>
Sat, 11 Jun 2005 21:05:29 +0000 (21:05 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 11 Jun 2005 21:05:29 +0000 (21:05 +0000)
p4raw-id: //depot/perl@24804

sv.h

diff --git a/sv.h b/sv.h
index 01a98be..719dfe2 100644 (file)
--- a/sv.h
+++ b/sv.h
@@ -1350,7 +1350,7 @@ Like C<sv_catsv> but doesn't process magic.
 
 #define SvSHARED_HEK_FROM_PV(pvx) \
        ((struct hek*)(pvx - STRUCT_OFFSET(struct hek, hek_key)))
-#define SvSHARED_HASH(sv) (SvSHARED_HEK_FROM_PV(SvPVX_const(sv))->hek_hash)
+#define SvSHARED_HASH(sv) (0 + SvSHARED_HEK_FROM_PV(SvPVX_const(sv))->hek_hash)
 
 /* flag values for sv_*_flags functions */
 #define SV_IMMEDIATE_UNREF     1