make store_hook() handle regular expression objects

[perl5.git] / dist / Storable / Storable.xs

diff --git a/dist/Storable/Storable.xs b/dist/Storable/Storable.xs
index 67ebba8..29f53b5 100644 (file)
--- a/dist/Storable/Storable.xs
+++ b/dist/Storable/Storable.xs
@@ -3595,6 +3595,7 @@ static int store_hook(
     switch (type) {
     case svis_REF:
     case svis_SCALAR:
+    case svis_REGEXP:
         obj_type = SHT_SCALAR;
         break;
     case svis_ARRAY: