| Subject: | Failure Loading additional_classes with additional_base_classes |
When you have additional classes and additional base classes, you get an
eval error due to missing semicolon. Please see attached patch.
Matt
| Subject: | cdbi_loader-0.29.patch |
Index: lib/Class/DBI/Loader/Generic.pm
===================================================================
--- lib/Class/DBI/Loader/Generic.pm (revision 11726)
+++ lib/Class/DBI/Loader/Generic.pm (working copy)
@@ -141,7 +141,7 @@
my $db_class = $self->_db_class();
my $additional = join '', map "use $_;\n", @{ $self->{_additional} };
my $additional_base =
- sprintf("use base qw(%s)\n", join(' ',
+ sprintf("use base qw(%s);\n", join(' ',
(@{ $self->{_left_base} }, @{ $self->{_additional_base} })));
my $constraint = $self->{_constraint};
my $exclude = $self->{_exclude};