X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole.pm;h=494174273f36e0421ca612487cbdb44434930e32;hb=5c776a61a4b51aa2dc97c08fcb5feffd20f14063;hp=19e9cecbce80d7c41edc83df14c9ff2c7bd57d40;hpb=58c9595d95477fa806c7876aa7bf80d1908bd22d;p=maypole.git

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index 19e9cec..4941742 100644
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -658,7 +658,7 @@ sub __load_request_model
         $self->model_class( $mclass );
     }
     elsif ($self->debug) {
-        warn "\n***Warning:  No $mclass class appropriate  to set as request model : $@***\n"
+      warn "***Warning:  No $mclass class appropriate for model. @_"; 
     }
 }
 
@@ -983,13 +983,12 @@ properties. Calls C<preprocess_path> 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');