summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/ASM/DB.pm2
-rwxr-xr-xmeta.pl1
2 files changed, 2 insertions, 1 deletions
diff --git a/lib/ASM/DB.pm b/lib/ASM/DB.pm
index 86a1c78..5ed239b 100644
--- a/lib/ASM/DB.pm
+++ b/lib/ASM/DB.pm
@@ -93,7 +93,7 @@ sub actionlog
$host = $event->{host};
} elsif (($event->{type} eq 'part') && ($event->{args}->[0] =~ /^requested by (\S+) \((.*)\)/)) {
$bynick = $1;
- $reason = $2 unless (lc $reason eq lc $event->{nick});
+ $reason = $2 unless (lc $2 eq lc $event->{nick});
$action = 'remove';
$nick = $event->{nick};
$user = $event->{user};
diff --git a/meta.pl b/meta.pl
index 6a9f934..3be2c9d 100755
--- a/meta.pl
+++ b/meta.pl
@@ -2,6 +2,7 @@
use strict;
use warnings;
+no if $] >= 5.017011, warnings => 'experimental::smartmatch';
use FindBin;
use lib "$FindBin::Bin/lib";;