t/loc_tools.pl: Implement fail() if not available

[perl5.git] / zaphod32_hash.h

diff --git a/zaphod32_hash.h b/zaphod32_hash.h
index 31dd153..bdbaa9a 100644 (file)
--- a/zaphod32_hash.h
+++ b/zaphod32_hash.h
@@ -269,7 +269,10 @@ U32 zaphod32_hash_with_state(
         return v0 ^ v2;
     }
 
-    if (len >= 8) {
+/*  if (len >= 8) */ /* this block is only reached by a goto above, so this condition
+                        is commented out, but if the above block is removed it would
+                        be necessary to use this. */
+    {
 zaphod32_read8:
         len = key_len & 0x7;
         end = key + key_len - len;