|
Lines 326-331
sub _version_compare {
Link Here
|
| 326 |
# 0.0.0 <=> 0.2.1 = -1 |
326 |
# 0.0.0 <=> 0.2.1 = -1 |
| 327 |
push( @v1, 0 ) unless defined( $v1[$i] ); |
327 |
push( @v1, 0 ) unless defined( $v1[$i] ); |
| 328 |
push( @v2, 0 ) unless defined( $v2[$i] ); |
328 |
push( @v2, 0 ) unless defined( $v2[$i] ); |
|
|
329 |
|
| 330 |
# Strip letters before comparing, supresses 'Argument "v1" isn't numeric in int' warning |
| 331 |
$v1[$i] =~ s/^v//g; |
| 332 |
$v2[$i] =~ s/^v//g; |
| 333 |
|
| 329 |
if ( int( $v1[$i] ) > int( $v2[$i] ) ) { |
334 |
if ( int( $v1[$i] ) > int( $v2[$i] ) ) { |
| 330 |
return 1; |
335 |
return 1; |
| 331 |
} |
336 |
} |
| 332 |
- |
|
|