gcc 5.1.0 thinks RETVAL might end up unset.

diff --git a/dist/Storable/Storable.xs b/dist/Storable/Storable.xs
index e7d0329..f1386d3 100644 (file)
--- a/dist/Storable/Storable.xs
+++ b/dist/Storable/Storable.xs
@@ -6677,6 +6677,7 @@ SV *      obj
  ALIAS:
   net_mstore = 1
  CODE:
+  RETVAL = &PL_sv_undef;
   if (!do_store(aTHX_ (PerlIO*) 0, obj, 0, ix, &RETVAL))
     RETVAL = &PL_sv_undef;
  OUTPUT: