From 88315e6423e5c9d0e2d84e8ae2739d413f789b21 Mon Sep 17 00:00:00 2001
From: Daniel Berteaud <daniel@firewall-services.com>
Date: Tue, 14 Oct 2014 19:33:53 +0200
Subject: [PATCH] Small cleanup

---
 vroom.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/vroom.pl b/vroom.pl
index 820149f..2675508 100755
--- a/vroom.pl
+++ b/vroom.pl
@@ -128,7 +128,10 @@ helper logout => sub {
 helper create_room => sub {
   my $self = shift;
   my ($name,$owner) = @_;
-  $name = lc $name unless ($name eq lc $name);
+  # Convert room names to lowercase
+  if ($name ne lc $name){
+    $name = lc $name;
+  }
   # Exit if the name isn't valid or already taken
   return undef if ($self->get_room_by_name($name) || !$self->valid_room_name($name));
   my $sth = eval {