[sisyphus] perl-DBD-mysql for branch 4.0

[sisyphus] perl-DBD-mysql for branch 4.0

[Alexey Tourbin]

[-- Attachment #1: Type: text/plain, Size: 801 bytes --]

Я попросил переложить в branch 4.0 новую версию perl-DBD-mysql.
Есть какой-то относительно левый софт (вроде бы называется freepbx),
который может сломаться от обновления версии.  Чтобы эта информация
не потерялась и проиндексировалась поисковиками, вот кусочек из частной
переписки.

Драйвер теперь возвращает квалифицированное имя, т.е. вместо "devices"
будет "asterisk.devices".

--- retrieve_op_conf_from_mysql.pl-     2007-07-21 12:28:49 +0400
+++ retrieve_op_conf_from_mysql.pl      2007-07-21 12:28:21 +0400
@@ -420,7 +420,8 @@ sub table_exists {
         for (@tables) {
             next unless $_;
             $_ =~ s/`//g;
-            return 1 if $_ eq $table
+            return 1 if $_ eq $table;
+            return 1 if $_ eq "$database.$table";
         }
     }

[-- Attachment #2: Type: application/pgp-signature, Size: 197 bytes --]