1 # -*- Mode: cperl; coding: utf-8; -*-
8 next if /^v/ && $]<5.006; # v-string 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 print "ok ", $N-@$D, "\n";
47 20000000.00 19990108 1
70 # cperl-indent-level: 2