List:MySQL and Perl« Previous MessageNext Message »
From:Bernt Marius Johnsen Date:October 27 2010 3:04pm
Subject:Faulty version check in foreign_key_info
View as plain text  
The version check in foreign_key_info fails to check the minor version. 
The fix is easy, though:

--- a/lib/DBD/mysql.pm
+++ b/lib/DBD/mysql.pm
@@ -638,7 +638,7 @@ sub foreign_key_info {

      # INFORMATION_SCHEMA.KEY_COLUMN_USAGE was added in 5.0.6
      my ($maj, $min, $point) = _version($dbh);
-    return if $maj < 5 || ($maj == 5 && $point < 6);
+    return if $maj < 5 || ($maj == 5 && $min == 0 && $point < 6);

      my $sql = <<'EOF';
  SELECT NULL AS PKTABLE_CAT,
Thread
Faulty version check in foreign_key_infoBernt Marius Johnsen27 Oct