ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Oleg Patsan                          2:5020/400     20 Mar 2003  21:35:23
 To : All
 Subject : DBD::Proxy
 -------------------------------------------------------------------------------- 
 

 Пытаюсь выполнить запрос:
 $dbh =
 
 DBI->connect("DBI:Proxy:hostname=oracle.uatele.com;port=3000;dsn=dbi:Oracle:
 
 ", 'scott', 'tiger') || die "Cann't connect to database: $!";
 $sth = $dbh->prepare("select client_name, client_code from client where
 client_login=:login") || die "Bad SQL: $!";
 
 $sth->bind_param(':login', $login);
 $sth->execute || die "Cann't execute: $!";
 
 Ругается:
 Modification of non-creatable array value attempted, subscript -1 at
 /usr/lib/perl5/site_perl/5.6.1/i386-linux/DBD/Proxy.pm line 549
 
 Там такой код:
 sub bind_param ($$$@) {
     my $sth = shift; my $param = shift;
     $sth->{'proxy_params'}->[$param-1] = [@_]; #line 549
 }
 *bind_param_inout = \&bind_param;
 
 Если сделать так:
 $sth = $dbh->prepare("select client_name, client_code from client where
 client_login=?") || die "Bad SQL: $!";
 
 $sth->execute($login) || die "Cann't execute: $!";
 
 , то все работает нормально, но такой вариант устраивает только для
 запросов, где параметры IN, а если нужно OUT, то не получается.
 
 Как починить? Это моя ошибка, или разработчиков DBD::Proxy?
 
 Спасибо
 -- 
 Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.Mail.Ru (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор