Check success of store().

Coverity CID 118699.
Perl · Jun 27, 2015 · 8cb8f89 · 8cb8f89
1 parent d1992db
commit 8cb8f89
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/dist/Storable/Storable.xs b/dist/Storable/Storable.xs
@@ -2658,7 +2658,9 @@ static int store_hash(pTHX_ stcxt_t *cxt, HV *hv)
                             TRACEME(("(#%d) key '%s'", i, key));
                         }
                         if (flags & SHV_K_ISSV) {
-                            store(aTHX_ cxt, key_sv);
+                            int ret;
+                            if ((ret = store(aTHX_ cxt, key_sv)))
+                                goto out;
                         } else {
                             WLEN(len);
                             if (len)