|
Lines 55-64
sub TransformToNum {
Link Here
|
| 55 |
# remove the 3 last . to have a Perl number |
55 |
# remove the 3 last . to have a Perl number |
| 56 |
$version =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
56 |
$version =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
| 57 |
|
57 |
|
| 58 |
# three X's at the end indicate that you are testing patch with dbrev |
|
|
| 59 |
# change it into 999 |
| 60 |
# prevents error on a < comparison between strings (should be: lt) |
| 61 |
$version =~ s/XXX$/999/; |
| 62 |
return $version; |
58 |
return $version; |
| 63 |
} |
59 |
} |
| 64 |
|
60 |
|
| 65 |
- |
|
|