X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FCLI.pm;h=39abf1546370987a26f16fb00d57c584bf14b045;hb=ed2bc6057ed94ae64e5b03ff28477fcbac52f4ee;hp=facedc12d2b27dc04bcda72a533a0bf97a582b7f;hpb=6cd7a25572c93242146d8d8ce0eb3f2bbb76917e;p=maypole.git diff --git a/lib/Maypole/CLI.pm b/lib/Maypole/CLI.pm index facedc1..39abf15 100644 --- a/lib/Maypole/CLI.pm +++ b/lib/Maypole/CLI.pm @@ -36,6 +36,9 @@ sub warn { sub parse_location { my $self = shift; my $url = URI->new( shift @ARGV ); + + $self->preprocess_location(); + (my $uri_base = $self->config->uri_base) =~ s:/$::; my $root = URI->new( $uri_base )->path; $self->{path} = $url->path;