From 3e6ec6883f7b0826ae58461105aba297c25e8803 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Wed, 8 Sep 2021 20:39:50 +0100
Subject: [PATCH] #809 fix crash in Node search due to regexp translation perl
 to SQL

---
 Changes                                 | 6 +++++-
 lib/App/Netdisco/DB/ResultSet/NodeIp.pm | 2 +-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index 0bb8d782..82561553 100644
--- a/Changes
+++ b/Changes
@@ -2,7 +2,11 @@
 
   [ENHANCEMENTS]
 
-  * Change duplicate job status from 'error' to 'info'
+  * #811 change duplicate job status from 'error' to 'info'
+
+  [BUG FIXES
+
+  * #809 fix crash in Node search due to regexp translation perl to SQL
 
 2.049004 - 2021-09-03
 
diff --git a/lib/App/Netdisco/DB/ResultSet/NodeIp.pm b/lib/App/Netdisco/DB/ResultSet/NodeIp.pm
index 52c8d232..83f6f586 100644
--- 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} },