restore Storable's portability to pre-5.25.6 perls

Commit 4f72e1e921be7caffd7029f421f171bad7f485f2 changed Storable.xs to
use SvPVCLEAR(), defined only on 5.25.6 and later, but didn't supply a
reserve definition.  Add the obvious reserve definition.

diff --git a/dist/Storable/Storable.pm b/dist/Storable/Storable.pm
index 3adc804..ae96a6c 100644 (file)
--- a/dist/Storable/Storable.pm
+++ b/dist/Storable/Storable.pm
@@ -22,7 +22,7 @@ package Storable; @ISA = qw(Exporter);
 
 use vars qw($canonical $forgive_me $VERSION);
 
-$VERSION = '2.63';
+$VERSION = '2.64';
 
 BEGIN {
     if (eval {

diff --git a/dist/Storable/Storable.xs b/dist/Storable/Storable.xs
index 1043bf7..dcd24e7 100644 (file)
--- a/dist/Storable/Storable.xs
+++ b/dist/Storable/Storable.xs
@@ -87,6 +87,10 @@
 #  define SvTRULYREADONLY(sv)  (SvREADONLY(sv) && !SvIsCOW(sv))
 #endif
 
+#ifndef SvPVCLEAR
+#  define SvPVCLEAR(sv) sv_setpvs((sv), "")
+#endif
+
 #ifdef DEBUGME
 
 #ifndef DASSERT