fixed decamelize of multiple uppercase characters

Changes

@@ -39,6 +39,7 @@ This file documents the revision history for Perl extension Mojo.
           param decoding.
         - Fixed format detection bug. (marcus)
         - Fixed named url_for and added tests. (marcus)
+        - Fixed decamelize of multiple uppercase characters.
 
 0.999914 2009-11-24 00:00:00
         - Added the Mojolicious plugin system.

lib/Mojo/ByteStream.pm

@@ -364,7 +364,7 @@ sub decamelize {
 
     # Split
     my @words;
-    push @words, $1 while ($self->{bytestream} =~ s/([A-Z]+[^A-Z]*)//);
+    push @words, $1 while ($self->{bytestream} =~ s/([A-Z]{1}[^A-Z]*)//);
 
     # Case
     @words = map {lc} @words;

t/mojo/bytestream.t

@@ -10,7 +10,7 @@ use utf8;
 # Homer, we're going to ask you a few simple yes or no questions.
 # Do you understand?
 # Yes. *lie dectector blows up*
-use Test::More tests => 35;
+use Test::More tests => 37;
 
 use_ok('Mojo::ByteStream', 'b');
 
@@ -19,12 +19,16 @@ my $stream = b('foo_bar_baz');
 is($stream->camelize, 'FooBarBaz');
 $stream = b('FooBarBaz');
 is($stream->camelize, 'Foobarbaz');
+$stream = b('foo_b_b');
+is($stream->camelize, 'FooBB');
 
 # decamelize
 $stream = b('FooBarBaz');
 is($stream->decamelize, 'foo_bar_baz');
 $stream = b('foo_bar_baz');
 is($stream->decamelize, 'foo_bar_baz');
+$stream = b('FooBB');
+is($stream->decamelize, 'foo_b_b');
 
 # b64_encode
 $stream = b('foobar$%^&3217');