projects
/
catagits/Catalyst-Runtime.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
fixed typo in recent checkin
[catagits/Catalyst-Runtime.git]
/
lib
/
Catalyst.pm
diff --git
a/lib/Catalyst.pm
b/lib/Catalyst.pm
index
b008e3a
..
2159d79
100644
(file)
--- a/
lib/Catalyst.pm
+++ b/
lib/Catalyst.pm
@@
-1341,7
+1341,7
@@
sub uri_for {
# 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)) {