Fix a bug for checking input.

diff --git a/lib/BarnOwl/Module/ColorUtils.pm b/lib/BarnOwl/Module/ColorUtils.pm
index 4e658c1ac094a86119b9c54a074f2241a53d6e01..26e62bb95552bb2344d1cf7a04965786b7c43a02 100644 (file)
--- a/lib/BarnOwl/Module/ColorUtils.pm
+++ b/lib/BarnOwl/Module/ColorUtils.pm
@@ -251,8 +251,9 @@ sub cmd_setcolor {
         'instance' => \$inst,
     );
 
+    return unless ((scalar @ARGV) > 0);
     my $color = shift @ARGV;
-
+    
     if ($color =~ /^#([0-9a-f]{2})([0-9a-f]{2})([0-9a-f]{2})$/i) {
         $color = find_color(hex($1),hex($2),hex($3));
     }