From ccf6bcc1ea08403f9081ce608009322e1b5091f6 Mon Sep 17 00:00:00 2001

From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>

Date: Thu, 11 May 2017 13:29:57 +0200

Subject: [PATCH] Provide SvPVCLEAR() macro

MIME-Version: 1.0

Content-Type: text/plain; charset=UTF-8

Content-Transfer-Encoding: 8bit

To build with perl <= 5.25.5.

Signed-off-by: Petr Písař <ppisar@redhat.com>

---

 Storable.xs | 5 +++++

 1 file changed, 5 insertions(+)

diff --git a/Storable.xs b/Storable.xs

index 9ba48be..f7d253c 100644

--- a/Storable.xs

+++ b/Storable.xs

@@ -26,6 +26,11 @@

 #include "ppport.h"             /* handle old perls */

 #endif

+/* SvPVCLEAR was added after 5.25.5 and ppport.h does not provide it */

+#if !defined SvPVCLEAR

+#define SvPVCLEAR(x) sv_setpvs((x), "")

+#endif

+

 #if 0

 #define DEBUGME /* Debug mode, turns assertions on as well */

 #define DASSERT /* Assertion mode */

-- 

2.9.3