From d84f1e1808b3252af83e4963eccfd1e4f19c5326 Mon Sep 17 00:00:00 2001
From: Obfuscoder
Date: Fri, 17 Oct 2014 22:54:13 +0200
Subject: Fix perlcritic issues for all scripts starting with e to l

---
 scripts/grep.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'scripts/grep.pl')

diff --git a/scripts/grep.pl b/scripts/grep.pl
index 976d867..35ce15c 100644
--- a/scripts/grep.pl
+++ b/scripts/grep.pl
@@ -57,7 +57,7 @@ sub cmd_grep {
 	$cmd = join(' ',@args);
 
 	# check if the regexp is valid
-	eval("'' =~ /$match/");
+	eval { qr/$match/ };
 	if($@) { # there was an error
 		chomp $@;
 		Irssi::print($@,MSGLEVEL_CLIENTERROR);
-- 
cgit v1.2.3