diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-12-25 16:53:16 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-25 17:47:37 -0800 |
| commit | 6c512c3f0714350cd3c600afc57e1d3e4930a552 (patch) | |
| tree | 724621c20c06d802221d85740f8df33483cadcef /dist | |
| parent | ad08c923f45e05f46607c8bd1145786601a5c6c1 (diff) | |
| download | perl-6c512c3f0714350cd3c600afc57e1d3e4930a552.tar.gz | |
Fix DD’s vstring tests unter 5.6
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/Data-Dumper/t/dumper.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/dist/Data-Dumper/t/dumper.t b/dist/Data-Dumper/t/dumper.t index 4b088b85f8..c522cfa1a1 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; |