From 6c512c3f0714350cd3c600afc57e1d3e4930a552 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sun, 25 Dec 2011 16:53:16 -0800 Subject: [PATCH] =?utf8?q?Fix=20DD=E2=80=99s=20vstring=20tests=20unter=205?= =?utf8?q?.6?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- dist/Data-Dumper/t/dumper.t | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/dist/Data-Dumper/t/dumper.t b/dist/Data-Dumper/t/dumper.t index 4b088b8..c522cfa 100644 --- a/dist/Data-Dumper/t/dumper.t +++ b/dist/Data-Dumper/t/dumper.t @@ -1487,7 +1487,12 @@ EOV #$c = \'ABC'; #$d = \'ABC'; EOU - @::_v = (\v65.66.67, \v65.66.067, \v65.66.6_7, \~v190.189.188); + @::_v = ( + \v65.66.67, + \($] < 5.007 ? v65.66.67 : eval 'v65.66.067'), + \v65.66.6_7, + \~v190.189.188 + ); TEST q(Data::Dumper->Dump(\@::_v, [qw(a b c d)])), 'vstrings'; TEST q(Data::Dumper->Dumpxs(\@::_v, [qw(a b c d)])), 'xs vstrings' if $XS; -- 2.7.4