# Remember to update this in Catalyst::Runtime as well!
-our $VERSION = '5.90020';
+our $VERSION = '5.90030';
sub import {
my ( $class, @arguments ) = @_;
# join args with '/', or a blank string
my $args = join('/', grep { defined($_) } @args);
$args =~ s/\?/%3F/g; # STUPID STUPID SPECIAL CASE
- $args =~ s!^/+!!i;
+ $args =~ s!^/+!!;
my ($base, $class) = ('/', 'URI::_generic');
if(blessed($c)) {