-sub vcheck($$)
-{
- my ($version1, $version2) = @_;
- $version1 =~ s/\-r(\d+)/\.$1/g; # minor revs/patchlevels
- $version2 =~ s/\-r(\d+)/\.$1/g;
- $version1 =~ s/p(\d+)/\.$1/g;
- $version2 =~ s/p(\d+)/\.$1/g;
- $version1 =~ s/\-//g;
- $version2 =~ s/\-//g;
- $version1 =~ s/[a-z]//g;
- $version2 =~ s/[a-z]//g;
- my @v1 = split('\.', $version1);
- my @v2 = split('\.', $version2);
- for (my $curr = 0; $curr < scalar(@v2); $curr++)
- {
- if ($v1[$curr] < $v2[$curr])
- {
- return 0;
- }
- }
- return 1;
-}
-