X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole.pm;h=5e85cdfe59b45b23e7cf16905b45598a926593ba;hb=55afe5b445e78a93fd7e501c49b53b654722c7c3;hp=4f4008500aa0ad94a916c311453591ab6fa073e3;hpb=6cd7a25572c93242146d8d8ce0eb3f2bbb76917e;p=maypole.git diff --git a/lib/Maypole.pm b/lib/Maypole.pm index 4f40085..5e85cdf 100644 --- a/lib/Maypole.pm +++ b/lib/Maypole.pm @@ -476,7 +476,6 @@ sub component { $self->get_user; my $url = URI->new($path); - warn "path : $path\n"; $self->{path} = $url->path; $self->parse_path; $self->params( $url->query_form_hash ); @@ -990,7 +989,6 @@ sub parse_path my @pi = grep {length} split '/', $self->path; - $self->table || $self->table(shift @pi); $self->action || $self->action( shift @pi or 'index' ); $self->args || $self->args(\@pi);