From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 15 Mar 2007 15:02:55 +0000 (+0000)
Subject: Seems that 5.6.x needs the same fix as 5.005_xx for dclone.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fe3ee0aa43b5aa35d36a04cb4dd3fcc055b741f7;p=p5sagit%2Fp5-mst-13.2.git

Seems that 5.6.x needs the same fix as 5.005_xx for dclone.t

p4raw-id: //depot/perl@30595
---

diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs
index 4f0a0e8..d3c0fab 100644
--- a/ext/Storable/Storable.xs
+++ b/ext/Storable/Storable.xs
@@ -6292,7 +6292,7 @@ static SV *dclone(pTHX_ SV *sv)
 	 */
 
 	if ((SvTYPE(sv) == SVt_PVLV
-#if PERL_VERSION < 6
+#if PERL_VERSION < 8
 	     || SvTYPE(sv) == SVt_PVMG
 #endif
 	     ) && SvRMAGICAL(sv) && mg_find(sv, 'p')) {