diff options
Diffstat (limited to 'lib/OPMode.pm')
| -rw-r--r-- | lib/OPMode.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/OPMode.pm b/lib/OPMode.pm index 013e896..4d41a91 100644 --- a/lib/OPMode.pm +++ b/lib/OPMode.pm @@ -33,7 +33,7 @@ sub conv_id { my $peer = pop(@_); if ( $peer =~ /\d+\.\d+\.\d+\.\d+/ ){ $peer = $peer; - } elsif ($peer =~ /\d+\:\d+\:\d+\:\d+\:\d+\:\d+\:\d+\:\d+/){ + } elsif ($peer =~ /([A-Fa-f0-9]+)\:([A-Fa-f0-9]+)\:([A-Fa-f0-9]+)\:([A-Fa-f0-9]+)\:([A-Fa-f0-9]+)\:([A-Fa-f0-9]+)\:([A-Fa-f0-9]+)\:([A-Fa-f0-9]+)\:/){ $peer = $peer; } elsif ($peer =~ /\%any/){ $peer = "any"; |