Skip Menu |
 

This queue is for tickets about the DBD-mysqlPP CPAN distribution.

Report information
The Basics
Id: 40606
Status: new
Priority: 0/
Queue: DBD-mysqlPP

People
Owner: Nobody in particular
Requestors: arrgee1991 [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



CC: oyama [...] module.jp
Subject: CALL procedure hangs at execute....
Date: Sun, 02 Nov 2008 20:54:22 +0000
To: bug-DBD-mysqlPP [...] rt.cpan.org
From: arrgee1991 <arrgee1991 [...] gmail.com>
Download (untitled) / with headers
text/plain 2.5k
for some reason calling a procedure does not work. however the procedure will run from my SQL monitor. is this a known issue? on windows xp version 5.1 (Build 2600.xpsp_sp3_gdr.080814-1236:Service Pack3)/active perl 5.10.0 build 1004/Pure Perl MySQL driver for the DBI Version: 0.04 Released: 2003-01-24 Author: Hiroyuki OYAMA <oyama@module.jp> CPAN: http://search.cpan.org/dist/DBD-mysqlPP-0.04/ * sql2.pl* #!/usr/bin/perl use strict; use DBI; use IO::Handle; STDOUT->autoflush(1); # Connect to the database. my $dbh = DBI->connect("dbi:mysqlPP:database=test;host=localhost;mysql_multi_results=1;mysql_server_prepare=1", "root", "password", {'RaiseError' => 1, AutoCommit => 1}); $dbh->do("drop procedure if exists someproc") or print $DBI::errstr; print "8\n"; $dbh->do("create procedure someproc() deterministic begin declare a,b,c,d int; set a=1; set b=2; set c=3; set d=4; select a, b, c, d; select d, c, b, a; select b, a, c, d; select c, b, d, a; end") or print $DBI::errstr; print "9\n"; my $sth=$dbh->prepare('call someproc();') || die $DBI::err.": ".$DBI::errstr; print "10\n"; * $sth->execute || die DBI::err.": ".$DBI::errstr; ## stops here* print "11\n"; my $rowset=0; my $i=0; my $colno; do { print "\nRowset ".++$i."\n---------------------------------------\n\n"; foreach $colno (0..$sth->{NUM_OF_FIELDS}) { print $sth->{NAME}->[$colno]."\t"; } print "\n"; while (my @row= $sth->fetchrow_array()) { my $field; foreach $field (0..$#row) { print $row[$field]."\t"; } print "\n"; } } until (!$sth->more_results); $dbh->disconnect() || die "$DBI::errstr"; *DOS* C:\>perl sql2.pl 8 9 10 /<then hangs>/ * MySQL Monitor* Show quoted text
mysql> call someproc;
+------+------+------+------+ | a | b | c | d | +------+------+------+------+ | 1 | 2 | 3 | 4 | +------+------+------+------+ 1 row in set (0.00 sec) +------+------+------+------+ | d | c | b | a | +------+------+------+------+ | 4 | 3 | 2 | 1 | +------+------+------+------+ 1 row in set (0.00 sec) +------+------+------+------+ | b | a | c | d | +------+------+------+------+ | 2 | 1 | 3 | 4 | +------+------+------+------+ 1 row in set (0.01 sec) +------+------+------+------+ | c | b | d | a | +------+------+------+------+ | 3 | 2 | 4 | 1 | +------+------+------+------+ 1 row in set (0.01 sec) Query OK, 0 rows affected (0.03 sec)


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.