clean whitespace in the bad-version-hook in Converter
David Golden
9 years ago
| 387 | 387 |
|
| 388 | 388 |
sub _bad_version_hook {
|
| 389 | 389 |
my ($v) = @_;
|
|
390 |
$v =~ s{^\s*}{};
|
|
391 |
$v =~ s{\s*$}{};
|
| 390 | 392 |
$v =~ s{[a-z]+$}{}; # strip trailing alphabetics
|
| 391 | 393 |
my $vobj = eval { version->new($v) };
|
| 392 | 394 |
return defined($vobj) ? $vobj : version->new(0); # or give up
|