can only upgrade 5.5.0 or higher

This commit is contained in:
JT Smith 2004-11-30 21:47:48 +00:00
parent cb817b2fdc
commit 5dba2a4820

View file

@ -294,18 +294,18 @@ STOP
#----------------------------------------- #-----------------------------------------
# checkVersion($versionNumber) # checkVersion($versionNumber)
#----------------------------------------- #-----------------------------------------
# Version number must be 3.5.1 or greater # Version number must be 5.5.0 or greater
# in order to be upgraded by this utility. # in order to be upgraded by this utility.
#----------------------------------------- #-----------------------------------------
sub checkVersion { sub checkVersion {
$_[0] =~ /(\d+)\.(\d+)\.(\d+)/; $_[0] =~ /(\d+)\.(\d+)\.(\d+)/;
if ($1 > 3) { if ($1 > 5) {
return 1; return 1;
} elsif ($1 == 3) { } elsif ($1 == 5) {
if ($2 > 5) { if ($2 > 5) {
return 1; return 1;
} elsif ($2 == 5) { } elsif ($2 == 5) {
if ($3 > 0) { if ($3 >= 0) {
return 1; return 1;
} else { } else {
return 0; return 0;