Fix u.pl

diff --git a/scripts/u.pl b/scripts/u.pl
index a552da727732a4d5b6349be8a34bfa31cbda1260..c5313abc7d53a481f9e76e2f8146a581bf15ffe1 100644 (file)
--- a/scripts/u.pl
+++ b/scripts/u.pl
@@ -12,7 +12,6 @@ $VERSION = "1.2";
     changed    => "Thu Jun  3 11:04:27 CEST 2004",
 );
 
-
 sub cmd_u
 {
        my ($data, $server, $channel) = @_;
@@ -21,12 +20,18 @@ sub cmd_u
        my $msg;
        my $match;
        my $nick;
-
+       
        if ($channel->{type} ne "CHANNEL")
        {
                Irssi::print("You are not on a channel");
                return;
        }
+       
+       eval { /$data/ } ;
+       if ($@) {
+               Irssi::print("Not a valid regexp given.",MSGLEVEL_CLIENTERROR);
+               return;
+       }       
 
        @nicks = $channel->nicks();
 
@@ -60,7 +65,7 @@ sub cmd_u
                }
                
                $match = $nick->{nick}.'!'.$nick->{host}; # For regexp matching
-
+               
                $channel->print($msg) if $match =~ /$data/i;
                
        }