sydney/Autobot
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use bloody ucfirst, that's what it's there for.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-03-30 21:53:25 -06:00
1 parent 6539bd5fed
commit 6035a0fdb5
1 file changed
+2 -1
Download Patch File Download Diff File Expand all files Collapse all files
modules/UNO.pm
+2 -1
View File
@@ -4,6 +4,7 @@
package M::UNO; package M::UNO;
use strict; use strict;
use warnings; use warnings;
use less 'memory';
use feature qw(switch); 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::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); use API::IRC qw(notice privmsg);
@@ -23,7 +24,7 @@ sub _init {
return; return;
} }
$EDITION = (conf_get('uno:edition'))[0][0]; $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. # Check if the edition is valid.
if ($EDITION !~ m/^(Original|Super|Advanced|Any)$/xsm) { if ($EDITION !~ m/^(Original|Super|Advanced|Any)$/xsm) {