X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lib%2FCGI%2FMaypole.pm;h=345b68ee9c0e577f4ffff06780b07b40dafe0f7e;hb=7913f720113bfd85b59a9fed57a60ec7a665fb39;hp=7da043c4665e7523836391af557f36199e9b2631;hpb=3f7deaafa3e8e5bf08c3b2b782abc4f12edcddf0;p=maypole.git diff --git a/lib/CGI/Maypole.pm b/lib/CGI/Maypole.pm index 7da043c..345b68e 100644 --- a/lib/CGI/Maypole.pm +++ b/lib/CGI/Maypole.pm @@ -4,7 +4,7 @@ use base 'Maypole'; use strict; use warnings; -our $VERSION = '2.04'; +our $VERSION = '2.05'; sub run { my $self = shift; @@ -22,6 +22,7 @@ sub parse_location { my $loc = $self->{cgi}->url( -absolute => 1 ); no warnings 'uninitialized'; $self->{path} =~ s/^($loc)?\///; + $self->{path} .= '/' if $self->{path} eq $loc; $self->parse_path; $self->parse_args; }