[PATCH] Use clone_sv() instead of clone_rv() for cloning references on newer perls
Niko Tyni
ntyni at debian.org
Wed May 4 18:38:23 UTC 2011
As of Perl 5.11, SVt_RV is gone and replaced by SVt_IV.
Using clone_sv() instead fixes test 5 of t/03scalar.t failing on 5.12.
---
Fast.xs | 4 ++++
1 files changed, 4 insertions(+), 0 deletions(-)
diff --git a/Fast.xs b/Fast.xs
index 870d1ab..9261717 100644
--- a/Fast.xs
+++ b/Fast.xs
@@ -129,7 +129,11 @@ static sv_clone_t sv_clone_table[] = {
#endif
(sv_clone_t)clone_sv, // SVt_IV
(sv_clone_t)clone_sv, // SVt_NV
+#if PERL_VERSION < 11
(sv_clone_t)clone_rv, // SVt_RV
+#else
+ (sv_clone_t)clone_sv, // SVt_IV
+#endif
(sv_clone_t)clone_sv, // SVt_PV
(sv_clone_t)clone_sv, // SVt_PVIV
(sv_clone_t)clone_sv, // SVt_PVNV
--
1.7.4.4
--zYM0uCDKw75PZbzx--
More information about the pkg-perl-maintainers
mailing list