6818f4
From c38b7faa8bb565553bf125da7244f013822735ff Mon Sep 17 00:00:00 2001
6818f4
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
6818f4
Date: Thu, 11 May 2017 13:44:14 +0200
6818f4
Subject: [PATCH] Provide SvPVCLEAR() macro
6818f4
MIME-Version: 1.0
6818f4
Content-Type: text/plain; charset=UTF-8
6818f4
Content-Transfer-Encoding: 8bit
6818f4
6818f4
To build with perl <= 5.25.5.
6818f4
6818f4
Signed-off-by: Petr Písař <ppisar@redhat.com>
6818f4
---
6818f4
 Dumper.xs | 5 +++++
6818f4
 1 file changed, 5 insertions(+)
6818f4
6818f4
diff --git a/Dumper.xs b/Dumper.xs
6818f4
index 0e7142e..5a21721 100644
6818f4
--- a/Dumper.xs
6818f4
+++ b/Dumper.xs
6818f4
@@ -8,6 +8,11 @@
6818f4
 #  include "ppport.h"
6818f4
 #endif
6818f4
 
6818f4
+/* SvPVCLEAR was added after 5.25.5 and ppport.h does not provide it */
6818f4
+#if !defined SvPVCLEAR
6818f4
+#define SvPVCLEAR(x) sv_setpvs((x), "")
6818f4
+#endif
6818f4
+
6818f4
 #if PERL_VERSION < 8
6818f4
 #  define DD_USE_OLD_ID_FORMAT
6818f4
 #endif
6818f4
-- 
6818f4
2.9.3
6818f4