вызов хранимой процедуры (perl mysql-5.0.19)

[Виталмий]

создаю процедуру:

Код: Выделить всё

CREATE PROCEDURE `new_proc`()
BEGIN
SET @sql = "select RAND()";
PREPARE stmt FROM @sql;
EXECUTE stmt;
DEALLOCATE PREPARE stmt;
END;

выполняю:

Код: Выделить всё

mysql> call new_proc();
+------------------+
| RAND()           |
+------------------+
| 0.86559206700473 |
+------------------+
1 row in set (0.00 sec)

Query OK, 0 rows affected (0.01 sec)

но если её вызывать в перле:

Код: Выделить всё

use DBI;
$dbh = DBI->connect("DBI:mysql:test:localhost","root", "") or die;
$query=$dbh->prepare("CALL new_proc()");
$query->execute;

то говорит:
PROCEDURE test.new_proc can't return a result set in the given context

[Omnifarious]

Большинство api, в то числе и в perl, не умеют получать значение, возвращаемое процедурой.
Если бы процедура ничего не возвращала, то, скорее всего, выполнялась бы нормально.

[Виталмий]

вопрос решил.
установил модуль DBD-mysql версии 4.001 и всё заработало на ура!!!
до этого было DBD-mysql версии 3.0002

Спасибо за внимание!