[svn:dbi] r13967 - dbi/trunk/lib/DBI/SQL

[email protected] Sun, 9 May 2010 23:47:10 -0700 (PDT)

Newsgroups	perl.dbi.changes
Message-ID	<[email protected]>

Author: REHSACK
Date: Sun May  9 23:47:10 2010
New Revision: 13967

Modified:
   dbi/trunk/lib/DBI/SQL/Nano.pm

Log:
DBI::SQL::Nano requires SQL::Statement >= 1.28 for API compatibility

Modified: dbi/trunk/lib/DBI/SQL/Nano.pm
==============================================================================
--- dbi/trunk/lib/DBI/SQL/Nano.pm	(original)
+++ dbi/trunk/lib/DBI/SQL/Nano.pm	Sun May  9 23:47:10 2010
@@ -30,7 +30,7 @@
     $VERSION = sprintf("1.%06d", q$Revision$ =~ /(\d+)/o);
 
     $versions->{nano_version} = $VERSION;
-    if ($ENV{DBI_SQL_NANO} || !eval { require "SQL/Statement.pm" }) {
+    if ($ENV{DBI_SQL_NANO} || !eval { require SQL::Statement; $SQL::Statement::VERSION ge '1.28' }) {
         @DBI::SQL::Nano::Statement::ISA = qw(DBI::SQL::Nano::Statement_);
         @DBI::SQL::Nano::Table::ISA     = qw(DBI::SQL::Nano::Table_);
     }