From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sat, 12 Apr 2014 04:36:01 +0000 (+0200)
Subject: Fix missing true return lost during e5a62c46f
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f3d7b702505f7eabec97857ffcba3f99edcd9d8d;p=dbsrgits%2FDBIx-Class-Historic.git

Fix missing true return lost during e5a62c46f

This never resulted in a serious problem because it was papered over by a
bug in Class::C3::Componentised. Addressing it at the source requires a bit
extra coding, hence no new CC3C release yet.
---

diff --git a/lib/DBIx/Class/Storage/DBI/Firebird.pm b/lib/DBIx/Class/Storage/DBI/Firebird.pm
index f0178bd..e615eb0 100644
--- a/lib/DBIx/Class/Storage/DBI/Firebird.pm
+++ b/lib/DBIx/Class/Storage/DBI/Firebird.pm
@@ -8,9 +8,10 @@ use warnings;
 # in ::Storage::DBI::InterBase as opposed to inheriting
 # directly from ::Storage::DBI::Firebird::Common
 use base qw/DBIx::Class::Storage::DBI::InterBase/;
-
 use mro 'c3';
 
+1;
+
 =head1 NAME
 
 DBIx::Class::Storage::DBI::Firebird - Driver for the Firebird RDBMS via
@@ -21,10 +22,6 @@ L<DBD::Firebird>
 This is an empty subclass of L<DBIx::Class::Storage::DBI::InterBase> for use
 with L<DBD::Firebird>, see that driver for details.
 
-=cut
-
-1;
-
 =head1 AUTHOR
 
 See L<DBIx::Class/AUTHOR> and L<DBIx::Class/CONTRIBUTORS>.
@@ -33,5 +30,3 @@ See L<DBIx::Class/AUTHOR> and L<DBIx::Class/CONTRIBUTORS>.
 
 You may distribute this code under the same terms as Perl itself.
 
-=cut
-# vim:sts=2 sw=2:
diff --git a/lib/DBIx/Class/Storage/DBI/ODBC/Firebird.pm b/lib/DBIx/Class/Storage/DBI/ODBC/Firebird.pm
index 095f416..c5254b4 100644
--- a/lib/DBIx/Class/Storage/DBI/ODBC/Firebird.pm
+++ b/lib/DBIx/Class/Storage/DBI/ODBC/Firebird.pm
@@ -69,3 +69,5 @@ You may distribute this code under the same terms as Perl itself.
 
 =cut
 # vim:sts=2 sw=2:
+
+1;