1 # -*- Mode: cperl; coding: utf-8; -*-
8 next if /^v/ && $]<5.006; # v-string tests are not for pre-5.6.0
18 my($l,$r,$exp) = @{shift @$D};
19 my $res = CPAN::Version->vcmp($l,$r);
21 print "# l[$l]r[$r]exp[$exp]res[$res]\n";
24 print "ok ", $N-@$D, "\n";
38 1.2.3 1.2.11 1 # not what they wanted
46 20000000.00 19990108 1