135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

only prettify version if it is numeric

Browse Source
This commit is contained in:
Oliver Gorwits
2017-06-28 14:46:16 +01:00
parent 36cea3ad57
commit 3355b0610c
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
lib/App/Netdisco/Backend/Worker/Poller/Expiry.pm
View File

@@ -108,6 +108,7 @@ sub expire {
sub pretty_version { sub pretty_version {
my ($version, $seglen) = @_; my ($version, $seglen) = @_;
return unless $version and $seglen; return unless $version and $seglen;
return $version if $version !~ m/^[0-9.]+$/;
$version =~ s/\.//g; $version =~ s/\.//g;
$version = (join '.', reverse map {scalar reverse} $version = (join '.', reverse map {scalar reverse}
unpack("(A${seglen})*", reverse $version)); unpack("(A${seglen})*", reverse $version));