From: Aaron Trevena Date: Tue, 5 Jul 2005 18:02:05 +0000 (+0000) Subject: fix bug #12927 X-Git-Tag: 2.10~19 X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=3ea311267f7346b89d18f043386f6b13221205e0;p=maypole.git 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 536e1a6..582a57b 100644 --- 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';