# -*- Mode: cperl; coding: utf-8; -*-
use strict;
-use CPAN;
+use CPAN::Version;
use vars qw($D $N);
while (<DATA>) {
next if /^v/ && $]<5.006; # v-string tests are not for pre-5.6.0
+ last if /^__END__$/;
chomp;
s/\s*#.*//;
push @$D, [ split ];
v1.2.3 v1.1.1 1
v1.2.3 v1.2.1 1
v1.2.3 v1.2.11 -1
-1.2.3 1.2.11 1 # not what they wanted
+1.2.3 1.2.11 -1
1.9 1.10 1
VERSION VERSION 0
0.02 undef 1
1.57_00 1.57 1
1.5700 1.57 1
1.57_01 1.57 1
-0.2.10 0.2 1
+0.2.10 0.2 -1
20000000.00 19990108 1
1.00 0.96 1
-0.7.02 0.7 1
+0.7.02 0.7 -1
1.3a5 1.3 1
undef 1.00 -1
v1.0 undef 1
5.005056 v5.5.56 0
5.00557 v5.5.560 1
5.00056 v5.0.561 -1
+0.0.2 0.000002 0
+1.0.3 1.000003 0
+1.0.1 1.000001 0
+0.0.1 0.000001 0
+0.01.04 0.001004 0
+0.05.18 0.005018 0
+4.08.00 4.008000 0
+__END__
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 2
+# End: