#809 fix crash in Node search due to regexp translation perl to SQL

2021-09-08 20:39:50 +01:00
parent b38ceaaeeb
commit 3e6ec6883f
2 changed files with 6 additions and 2 deletions
--- a/lib/App/Netdisco/DB/ResultSet/NodeIp.pm
+++ b/lib/App/Netdisco/DB/ResultSet/NodeIp.pm
@@ -151,7 +151,7 @@ sub search_by_dns {
      if ref {} ne ref $cond or !exists $cond->{dns};

    (my $suffix = (delete $cond->{suffix} || ''))
-      =~ s|\Q(?^\Eu?|(?|g;
+      =~ s|\Q(?^\E[-xismu]*|(?|g;

    $cond->{dns} = [ -and =>
      { '-ilike' => delete $cond->{dns} },