From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 10 Jun 2010 14:29:38 +0000 (+0000)
Subject: make sure we are not trying to use a "modern" class::dbi
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=5748c98323ac1ae5c892ab0375b2a36082772192;p=evergreen%2Ftadl.git

make sure we are not trying to use a "modern" class::dbi

git-svn-id: svn://svn.open-ils.org/ILS/trunk@16648 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm
index e16cf42e46..a35d505873 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm
@@ -22,6 +22,11 @@ use OpenSRF::EX qw/:try/;
 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;