|
|
@ -42,7 +42,7 @@ sub new { |
|
|
|
close(TEST); |
|
|
|
close(TEST); |
|
|
|
|
|
|
|
|
|
|
|
# set version (format: e.g. 0.9.7 or 0.9.7a) |
|
|
|
# set version (format: e.g. 0.9.7 or 0.9.7a) |
|
|
|
if($v =~ /\b(0\.\d\.\d[a-z]?)\b/) { |
|
|
|
if($v =~ /\b(\d\.\d\.\d[a-z]?)\b/) { |
|
|
|
$self->{'version'} = $1; |
|
|
|
$self->{'version'} = $1; |
|
|
|
} else { |
|
|
|
} else { |
|
|
|
chomp $v; |
|
|
|
chomp $v; |
|
|
|