ls.pl: check for regex correctness to avoid crashing the script

diff --git a/scripts/ls.pl b/scripts/ls.pl
index 7af5e4e99b1a224da0bea5922d04a6080df430df..c07e94be34d0d8299084e04a97fd2b660e106781 100644 (file)
--- a/scripts/ls.pl
+++ b/scripts/ls.pl
@@ -24,10 +24,17 @@ sub cmd_ls {
 
        my @nicks = $channel->nicks();
 
+       my $re = eval { qr/$data/i };
+       if (not $re) {
+               chomp $@;
+               $channel->print("Invalid regex pattern:\n$@");
+               return;
+       }
+
        foreach my $nick (@nicks) {
                my $n = $nick->{nick} . "!" . $nick->{host};
 
-               $channel->print("$n") if $n =~ /$data/i;
+               $channel->print("$n") if $n =~ $re;
        }
 }