(perl #127743) limit the number of extra refs returned by STORABLE_freeze

Ensure some over enthusiastic STORABLE_freeze() doesn't cause us to
emit a negative reference count for SX_HOOK.

This fails to be parsed by older versions and flags 64-bit ids for new
versions of Storable.

diff --git a/dist/Storable/Storable.xs b/dist/Storable/Storable.xs
index 8e013d7..819d743 100644 (file)
--- a/dist/Storable/Storable.xs
+++ b/dist/Storable/Storable.xs
@@ -3598,6 +3598,12 @@ static int store_hook(
         }
     }
 
+#ifdef HAS_U64
+    if (count > I32_MAX) {
+       CROAK(("Too many references returned by STORABLE_freeze()"));
+    }
+#endif
+
     /*
      * If they returned more than one item, we need to serialize some
      * extra references if not already done.