X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole.pm;h=30384eb6ce2b6b0b6b3ca8b8a215e26332b4cb74;hb=4937f0e321b7a1649203b29d037ec23f08fcae08;hp=536e1a6689ac2c0329beb1d43ea4255555c2865d;hpb=ce69977fefb29ec45af867cdbfa854eabdd2d3b4;p=maypole.git diff --git a/lib/Maypole.pm b/lib/Maypole.pm index 536e1a6..30384eb 100644 --- a/lib/Maypole.pm +++ b/lib/Maypole.pm @@ -7,7 +7,7 @@ use Maypole::Config; use Maypole::Constants; use Maypole::Headers; -our $VERSION = '2.09'; +our $VERSION = '2.10_pre3'; __PACKAGE__->mk_classdata($_) for qw( config init_done view_object ); __PACKAGE__->mk_accessors( @@ -34,7 +34,7 @@ sub setup { my $config = $calling_class->config; $config->model || $config->model("Maypole::Model::CDBI"); $config->model->require; - die "Couldn't load the model class $config->model: $@" if $@; + die "Couldn't load the model class $config->{model}: $@" if $@; $config->model->setup_database( $config, $calling_class, @_ ); for my $subclass ( @{ $config->classes } ) { no strict 'refs';