Added Maypole::Config, and changed other classes to reflect that.

[maypole.git] / lib / Maypole / CLI.pm

diff --git a/lib/Maypole/CLI.pm b/lib/Maypole/CLI.pm
index fec6f5e8739929565c624f7b9e27499a9ef2abee..49f267584cf994d1a169c125f24539a37007dcf3 100644 (file)
--- a/lib/Maypole/CLI.pm
+++ b/lib/Maypole/CLI.pm
@@ -22,8 +22,8 @@ sub get_template_root { $ENV{MAYPOLE_TEMPLATES} || "." }
 
 sub parse_location {
     my $self = shift;
-    my $url  = URI->new( shift @ARGV );
-    my $root = URI->new( $self->config->{uri_base} )->path;
+    my $url  = URI->new(shift @ARGV);
+    my $root = URI->new($self->config->uri_base)->path;
     $self->{path} = $url->path;
     $self->{path} =~ s/^$root//i if $root;
     $self->parse_path;