From 0a843adb1070627bb272cb326d9120fec56c0ded Mon Sep 17 00:00:00 2001
From: Pablo Martín Báez Echevarría
Date: Sun, 28 Sep 2014 15:58:07 -0300
Subject: Fix u.pl

---
 scripts/u.pl | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'scripts/u.pl')

diff --git a/scripts/u.pl b/scripts/u.pl
index a552da7..c5313ab 100644
--- 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;
 		
 	}
-- 
cgit v1.2.3