From 3ea311267f7346b89d18f043386f6b13221205e0 Mon Sep 17 00:00:00 2001
From: Aaron Trevena <aaron.trevena@gmail.com>
Date: Tue, 5 Jul 2005 18:02:05 +0000
Subject: [PATCH] fix bug #12927
git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@345 48953598-375a-da11-a14b-00016c27c3ee
---
lib/Maypole.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
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';
--
2.39.5