Fix missing parentheses in frm_outgmsgs.pl

diff --git a/_data/scripts.yaml b/_data/scripts.yaml
index c25007e2193b4504d48f32e3f2f383ef18704734..614ea83872a0e25b2510a21115a9b0f72c8ef3b1 100644 (file)
--- a/_data/scripts.yaml
+++ b/_data/scripts.yaml
@@ -4284,4 +4284,4 @@
   modified: "2014-10-16"
   license: "Public Domain"
   name: "frm_outgmsgs"
-  version: "1.0"
+  version: "1.1"

diff --git a/scripts/frm_outgmsgs.pl b/scripts/frm_outgmsgs.pl
index 7e51566c9acffd7a50fb84022c7f81f82fe9554d..71c9b021ec4e51f2baf7391b88ccbb8925816c29 100644 (file)
--- a/scripts/frm_outgmsgs.pl
+++ b/scripts/frm_outgmsgs.pl
@@ -5,7 +5,7 @@ use Scalar::Util qw(looks_like_number);
 use Irssi;
 use vars qw($VERSION %IRSSI);
 
-$VERSION = '1.0';
+$VERSION = '1.1';
 %IRSSI = (
        authors     => 'Pablo Martín Báez Echevarría',
        contact     => 'pab_24n@outlook.com',
@@ -95,7 +95,7 @@ sub cmd_colors {
 }
 
 sub is_mIRC_color {
-  my $num = @_;
+  my ( $num ) = @_;
   return (looks_like_number($num)) ? ((0 <= $num) && ($num <= 15)) : 0;
 }