1 # -*- Mode: cperl; coding: utf-8; -*-
8 next if tr/.// > 1 && $]<5.006; # multidot tests are not for pre-5.6.0
19 my($l,$r,$exp) = @{shift @$D};
20 my $res = CPAN::Version->vcmp($l,$r);
22 print "# l[$l]r[$r]exp[$exp]res[$res]\n";
25 printf "ok %2d # %12s %12s %3d\n", $N-@$D, $l, $r, $res;
47 20000000.00 19990108 1
70 # cperl-indent-level: 2