Hello, J.. You write 16 мая 2008 г., 4:27:07: JS> On Thu, May 15, 2008 at 11:50 PM, Dmitriy S. Sinyavskiy <[EMAIL PROTECTED]> wrote: >> So what about my patch and test? >> Is it right or someone can correct it? >> The silence is here for a week or more ( >>
JS> Jonathan Rockway asked you to regenerate without whitespace changes. JS> Just waiting on that from you to properly review it. JS> -J It strange I haven't got received letter with this...may be deleted by antispam ( Nevertheless I've done it now: Index: Catalyst.pm =================================================================== --- Catalyst.pm (revision 7759) +++ Catalyst.pm (working copy) @@ -948,10 +948,12 @@ my $params = ( scalar @args && ref $args[$#args] eq 'HASH' ? pop @args : {} ); + $path =~ s!/+!/!g; # strip extra slashes '///' + unshift(@args, split('/', $path)); carp "uri_for called with undef argument" if grep { ! defined $_ } @args; s/([^$URI::uric])/$URI::Escape::escapes{$1}/go for @args; - unshift(@args, $path); + unless (defined $path && $path =~ s!^/!!) { # in-place strip my $namespace = $c->namespace; -- dreel mailto:[EMAIL PROTECTED] Dmitriy S. Sinyavskiy Web-developer Perl, Catalyst, MSSQL FGUE EZAN Telecommunication, data transfer networks and devices. _______________________________________________ List: Catalyst@lists.scsys.co.uk Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/ Dev site: http://dev.catalyst.perl.org/