From 3a7ffb24ee4a1c8c529b542012f8d84c14727da0 Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Thu, 3 Mar 2011 15:55:55 -0700
Subject: [PATCH] Fixed some Perl::Critic violations.

---
 lib/API/Log.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/API/Log.pm b/lib/API/Log.pm
index a7ffd79..b17c589 100644
--- a/lib/API/Log.pm
+++ b/lib/API/Log.pm
@@ -114,7 +114,7 @@ sub slog
         # It is, continue.
 
         # Split the network and channel.
-        my ($net, $chan) = split '/', (conf_get('logchan'))[0][0];
+        my ($net, $chan) = split m/[\/]/, (conf_get('logchan'))[0][0];
         $chan = lc $chan;
 
         # Check if we're connected to the network.