From 3355b0610ca3cb517753ba45fb7a974b59ca0012 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Wed, 28 Jun 2017 14:46:16 +0100
Subject: [PATCH] only prettify version if it is numeric

---
 lib/App/Netdisco/Backend/Worker/Poller/Expiry.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/App/Netdisco/Backend/Worker/Poller/Expiry.pm b/lib/App/Netdisco/Backend/Worker/Poller/Expiry.pm
index 0c6703c9..e27e6d90 100644
--- 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));