Tis file documents the revision history for Perl extension Catalyst.
+5.52 2005-11-14 10:57:00
+ - Strip '..'s in static urls to fix security issue.
5.51 2005-11-14 00:45:00
- Changed uri_for to use namespace instead of match.
__PACKAGE__->request_class('Catalyst::Request');
__PACKAGE__->response_class('Catalyst::Response');
-our $VERSION = '5.51';
+our $VERSION = '5.52';
sub import {
my ( $class, @arguments ) = @_;
use warnings;
use base qw/Class::Accessor::Fast Class::Data::Inheritable/;
use File::stat;
+use File::Spec::Functions qw/catdir no_upwards splitdir/;
use IO::File;
use MIME::Types;
use NEXT;
sub _locate_static_file {
my $c = shift;
- my $path = $c->req->path;
+ my $path = catdir(no_upwards(splitdir( $c->req->path )));
my @ipaths = @{ $c->config->{static}->{include_path} };
my $dpaths;