X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lib%2FMaypole.pm;h=0d0250dfcbde82a88953658dab393326a57504dc;hb=fd4f46b563663298840413d9b0d6961720458c1b;hp=19e9cecbce80d7c41edc83df14c9ff2c7bd57d40;hpb=58c9595d95477fa806c7876aa7bf80d1908bd22d;p=maypole.git

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index 19e9cec..0d0250d 100644
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -12,7 +12,7 @@ use URI::QueryParam;
 use NEXT;
 use File::MMagic::XS qw(:compat);
 
-our $VERSION = '2.11';
+our $VERSION = '2.11_pre4';
 our $mmagic = File::MMagic::XS->new();
 
 # proposed privacy conventions:
@@ -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');