perl: Unify regex delimiters to //, {} or <>

Fixes RegularExpressions::ProhibitUnusualDelimiters.

Warned-by: perlcritic

1 files changed, 1 insertions, 1 deletions

diff --git a/dselect/mkcurkeys.pl b/dselect/mkcurkeys.pl
index 882fa1fc8..1cc0052d7 100755
--- a/dselect/mkcurkeys.pl
+++ b/dselect/mkcurkeys.pl
@@ -59,7 +59,7 @@ while (<$header_fh>) {
     $_= $rhs;
     s/(\w)[\(\)]/$1/g;
     s/\w+ \((\w+)\)/$1/;
-    next unless m|^/\* (\w[\w ]+\w) \*/$|;
+    next unless m{^/\* (\w[\w ]+\w) \*/$};
     $_= $1;
     s/ key$//;
     next if s/^shifted /shift / ? m/ .* .* / : m/ .* /;