X-Git-Url: https://git.decadent.org.uk/gitweb/?p=maypole.git;a=blobdiff_plain;f=lib%2FMaypole.pm;h=59b519706c939f83fb774b16d685295fe88e5a4e;hp=64e5a1a886c877d8aa59475426ff63f7f9714070;hb=3fe0b0765144ea1a88a73e1aaf149cea290708a0;hpb=02b642b7100a6e0a91e83aca3c4e63cd88786315 diff --git a/lib/Maypole.pm b/lib/Maypole.pm index 64e5a1a..59b5197 100644 --- a/lib/Maypole.pm +++ b/lib/Maypole.pm @@ -487,8 +487,9 @@ You should not fully qualify the Maypole URLs. sub component { my ( $r, $path ) = @_; - my $self = bless { parent => $r }, ref $r; + my $self = bless { parent => $r, config => $r->{config} }, ref $r; my $url = URI->new($path); + warn "path : $path\n"; $self->{path} = $url->path; $self->parse_path; $self->params( $url->query_form_hash );