X-Git-Url: https://git.decadent.org.uk/gitweb/?p=maypole.git;a=blobdiff_plain;f=lib%2FMaypole.pm;h=02ecadecea777e22da44581f75987b0aef5638fe;hp=19e9cecbce80d7c41edc83df14c9ff2c7bd57d40;hb=78ca407e1a819f514cbb45f0dbd085411066ab54;hpb=95016d049c116e1eb00314d7e6ed45b2c4033e68 diff --git a/lib/Maypole.pm b/lib/Maypole.pm index 19e9cec..02ecade 100644 --- a/lib/Maypole.pm +++ b/lib/Maypole.pm @@ -983,13 +983,12 @@ properties. Calls C before parsing path and setting properties. sub parse_path { my ($self) = @_; - + # Previous versions unconditionally set table, action and args to whatever # was in @pi (or else to defaults, if @pi is empty). # Adding preprocess_path(), and then setting table, action and args # conditionally, broke lots of tests, hence this: $self->$_(undef) for qw/action table args/; - $self->preprocess_path; $self->path || $self->path('frontpage');