[perl #118907] fix some issues with patch

diff --git a/MANIFEST b/MANIFEST
index 4b68b19..a128a43 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -3328,6 +3328,7 @@ dist/Storable/Storable.pm         Storable extension
 dist/Storable/Storable.xs              Storable extension
 dist/Storable/t/attach_errors.t                Trigger and test STORABLE_attach errors
 dist/Storable/t/attach_singleton.t     Test STORABLE_attach for the Singleton pattern
+dist/Storable/t/attach.t               Check STORABLE_attach doesn't create objects unnecessarily
 dist/Storable/t/blessed.t              See if Storable works
 dist/Storable/t/canonical.t            See if Storable works
 dist/Storable/t/circular_hook.t                Test thaw hook called depth-first for circular refs

diff --git a/dist/Storable/Storable.xs b/dist/Storable/Storable.xs
index a149d41..300ba66 100644 (file)
--- a/dist/Storable/Storable.xs
+++ b/dist/Storable/Storable.xs
@@ -1033,7 +1033,7 @@ static const char byteorderstr_56[] = {BYTEORDER_BYTES_56, 0};
        TRACEME(("aseen(#%d) = 0x%"UVxf" (refcnt=%d)", cxt->tagnum-1, \
                 PTR2UV(y), SvREFCNT(y)-1));            \
        if (stash)                                                              \
-               BLESS((SV *) (y), stash);                       \
+               BLESS((SV *) (y), (HV *)(stash));                       \
   } STMT_END
 
 /*
@@ -4773,7 +4773,7 @@ static SV *retrieve_tied_idx(pTHX_ stcxt_t *cxt, const char *cname)
 {
        SV *tv;
        SV *sv;
-       SV *stash;
+       HV *stash;
        I32 idx;
 
        TRACEME(("retrieve_tied_idx (#%d)", cxt->tagnum));