fix bug #12927

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@345 48953598-375a-da11-a14b-00016c27c3ee

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index 536e1a6689ac2c0329beb1d43ea4255555c2865d..582a57b5699b8a59e05a64bed4fa4b2ab66234cb 100644 (file)
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -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';