Changeset 831

Timestamp:

03/24/22 13:23:30 (2 years ago)

Author:

Kris Deugau

Message:

/trunk

Refine the regex in _maybeip() for slightly better validation and excluding
the wildcard possibility of \d matching outside [0-9] in some locales

File:

• trunk/DNSDB.pm (modified) (1 diff)

trunk/DNSDB.pm

@@ -402 +402 @@
 sub _maybeip {
   my $izzit = shift;  # reference
-  return 1 if $$izzit =~ m,^(?:[\d\./]+|[0-9a-fA-F:/]+)$,;
+  return 1 if $$izzit =~ m,^(?:[0-9\.]+|[0-9a-fA-F:]+)(?:/[0-9]+)?$,;
 }