Changeset 1685

Timestamp:

01/28/16 13:05:51 (8 years ago)

Author:

nanardon

Message:

IF format does not match, return the input as it is

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Nethost.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Nethost.pm

@@ -86 +86 @@
                 input => sub {
                     $_[0] or return;
+                    $_[0] =~ /^([0-9a-f]{2}([:-]|$)){6}$/i or return $_[0];
                     my @elem = split(/[:-]/, $_[0]);
-                    return join(':', map { sprintf("%02x", hex($_)) } @elem);
+                    return join(':', map { sprintf("%02x", hex($_)) || $_ } @elem);
                 },
                 checkinputformat => sub {