From 6035a0fdb545d1cea22f8a349dc6d927ac2d4c67 Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Wed, 30 Mar 2011 21:53:25 -0600
Subject: [PATCH] Use bloody ucfirst, that's what it's there for.

---
 modules/UNO.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/modules/UNO.pm b/modules/UNO.pm
index 7439f9b..9818a98 100644
--- a/modules/UNO.pm
+++ b/modules/UNO.pm
@@ -4,6 +4,7 @@
 package M::UNO;
 use strict;
 use warnings;
+use less 'memory';
 use feature qw(switch);
 use API::Std qw(cmd_add cmd_del hook_add hook_del trans conf_get err has_priv match_user awarn);
 use API::IRC qw(notice privmsg);
@@ -23,7 +24,7 @@ sub _init {
         return;
     }
     $EDITION = (conf_get('uno:edition'))[0][0];
-    $EDITION = uc(substr $EDITION, 0, 1).substr $EDITION, 1;
+    $EDITION = ucfirst $EDITION;
 
     # Check if the edition is valid.
     if ($EDITION !~ m/^(Original|Super|Advanced|Any)$/xsm) {