The HePV macro was borked.

p4raw-id: //depot/perl@30520

diff --git a/hv.h b/hv.h
index 2e1a506..6e19c84 100644 (file)
--- a/hv.h
+++ b/hv.h
@@ -303,7 +303,7 @@ C<SV*>.
 #define HeHASH(he)             HEK_HASH(HeKEY_hek(he))
 #define HePV(he,lp)            ((HeKLEN(he) == HEf_SVKEY) ?            \
                                 SvPV(HeKEY_sv(he),lp) :                \
-                                ((lp = HeKLEN(he)) >= 0))              \
+                                ((lp = HeKLEN(he)), HeKEY(he)))
 
 #define HeSVKEY(he)            ((HeKEY(he) &&                          \
                                  HeKLEN(he) == HEf_SVKEY) ?            \