X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FCGI%2FMaypole.pm;h=345b68ee9c0e577f4ffff06780b07b40dafe0f7e;hb=a6edcc4c9b9950ee248e8e10839c86c8e31a129d;hp=db8cc75149dc180af39653c03484db0a88b5cd14;hpb=7dda5e1451220612c6ad749746d84e4c090e330c;p=maypole.git diff --git a/lib/CGI/Maypole.pm b/lib/CGI/Maypole.pm index db8cc75..345b68e 100644 --- a/lib/CGI/Maypole.pm +++ b/lib/CGI/Maypole.pm @@ -3,7 +3,8 @@ use base 'Maypole'; use strict; use warnings; -our $VERSION = "0.3"; + +our $VERSION = '2.05'; sub run { my $self = shift; @@ -21,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; }