[PATCH] Use clone_sv() instead of clone_rv() for cloning references on newer perls

[Niko Tyni]

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--