From fe3ee0aa43b5aa35d36a04cb4dd3fcc055b741f7 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Thu, 15 Mar 2007 15:02:55 +0000 Subject: [PATCH] Seems that 5.6.x needs the same fix as 5.005_xx for dclone.t p4raw-id: //depot/perl@30595 --- ext/Storable/Storable.xs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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')) { -- 2.7.4