This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Seems that 5.6.x needs the same fix as 5.005_xx for dclone.t
authorNicholas Clark <nick@ccl4.org>
Thu, 15 Mar 2007 15:02:55 +0000 (15:02 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 15 Mar 2007 15:02:55 +0000 (15:02 +0000)
p4raw-id: //depot/perl@30595

ext/Storable/Storable.xs

index 4f0a0e8..d3c0fab 100644 (file)
@@ -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')) {