From 0f7bf2bf5370e2b45d228ec10ca15020c5c2fa07 Mon Sep 17 00:00:00 2001 From: Doug Freed Date: Tue, 9 Feb 2016 18:36:15 -0700 Subject: Clean up excessive use of lc --- lib/ASM/Log.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lib/ASM/Log.pm') diff --git a/lib/ASM/Log.pm b/lib/ASM/Log.pm index ef204f0..adeb4f2 100644 --- a/lib/ASM/Log.pm +++ b/lib/ASM/Log.pm @@ -116,10 +116,11 @@ sub logg print "COULDN'T PRINT TO $path - $line"; } my $spy; + my $nick = lc $event->{nick}; if (defined($::spy{$chan})) { $spy = $::spy{$chan}; - } elsif (defined($::spy{lc $event->{nick}})) { - $spy = $::spy{lc $event->{nick}}; + } elsif (defined($::spy{$nick})) { + $spy = $::spy{$nick}; } if (defined($spy)) { say $spy "$chan: $nostamp"; -- cgit v1.2.3