diff -urp Clone-0.28-mTHqlJ.orig/Clone.xs Clone-0.28-mTHqlJ/Clone.xs
--- Clone-0.28-mTHqlJ.orig/Clone.xs	2007-10-15 06:52:42.000000000 +0200
+++ Clone-0.28-mTHqlJ/Clone.xs	2007-12-29 11:55:55.000000000 +0100
@@ -157,10 +157,12 @@ sv_clone (SV * ref, int depth)
         TRACEME(("double scalar\n"));
         clone = newSVsv (ref);
         break;
+#if PERL_VERSION <= 10
       case SVt_RV:		/* 3 */
         TRACEME(("ref scalar\n"));
         clone = newSVsv (ref);
         break;
+#endif
       case SVt_PV:		/* 4 */
         TRACEME(("string scalar\n"));
         clone = newSVsv (ref);
Nur in Clone-0.28-mTHqlJ/: Clone.xs~.