only prettify version if it is numeric

2017-06-28 14:46:16 +01:00
parent 36cea3ad57
commit 3355b0610c
1 changed files with 1 additions and 0 deletions
--- a/lib/App/Netdisco/Backend/Worker/Poller/Expiry.pm
+++ b/lib/App/Netdisco/Backend/Worker/Poller/Expiry.pm
@@ -108,6 +108,7 @@ sub expire {
 sub pretty_version {
  my ($version, $seglen) = @_;
  return unless $version and $seglen;
+  return $version if $version !~ m/^[0-9.]+$/;
  $version =~ s/\.//g;
  $version = (join '.', reverse map {scalar reverse}
    unpack("(A${seglen})*", reverse $version));