[open-ils-commits] r16648 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2010-06-10 10:29:38 -0400 (Thu, 10 Jun 2010)
New Revision: 16648

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm
Log:
make sure we are not trying to use a "modern" class::dbi

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm	2010-06-10 13:55:47 UTC (rev 16647)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm	2010-06-10 14:29:38 UTC (rev 16648)
@@ -22,6 +22,11 @@
 our $VERSION = 1;
 my $log = 'OpenSRF::Utils::Logger';
 
+if ($Class::DBI::VERSION gt '3.0.1') {
+    $log->error("Your version of Class::DBI, $Class::DBI::VERSION, is too new and incompatable with Evergreen.  You will need to downgrade to version 3.0.1"); 
+    die("Your version of Class::DBI, $Class::DBI::VERSION, is too new and incompatable with Evergreen.  You will need to downgrade to version 3.0.1"); 
+}
+
 sub child_init {
 	my $self = shift;