Why does Apache complain that my mod_perl program "disconnect invalidates 1 active statement handle"?
Solution 1
You should call $statement->finish();
before $db_handle->disconnnect();
.
Normally you don't need to call finish
, unless you're not getting all the rows. If you get all the results in a loop using fetchrow_array
, you don't call finish at the end unless you aborted the loop.
I'm not sure why the MySQL driver isn't finishing the statement after a fetchall_hashref
. The manual suggests that your query might be aborting due to an error:
If an error occurs, fetchall_hashref returns the data fetched thus far, which may be none. You should check $sth->err afterwards (or use the RaiseError attribute) to discover if the data is complete or was truncated due to an error.
Solution 2
This is caused by the handle still being active. Normally it should close itself though, but you don't seem to be fetching all the data from it. From the perldoc on DBI:
When all the data has been fetched from a SELECT statement, the driver should automatically call finish for you. So you should not normally need to call it explicitly except when you know that you've not fetched all the data from a statement handle. The most common example is when you only want to fetch one row, but in that case the selectrow_* methods are usually better anyway. Adding calls to finish after each fetch loop is a common mistake, don't do it, it can mask genuine problems like uncaught fetch errors.
GeneQ
"I'm not questioning your powers of observation. I'm merely remarking upon the paradox of asking a masked man who he is." - V Now, jokes aside, I'm a long time Perl aficionado, a hardcore W3C standards nut, a happy Javascript hacker and an occasional (and reluctant) Linux / OS X sysadmin. Former C++ junkie and C# exponent. Currently doing iOS and Mac development (and having loads of fun). Program manager for a distributed learning platform at a startup. Research interests include calendrical calculations, computational musical theory and natural language processing.
Updated on June 04, 2022Comments
-
GeneQ almost 2 years
disconnect invalidates 1 active statement handle (either destroy statement handles or call finish on them before disconnecting)
The following code which grabs data from MySQL gets executed successfully, but will cause Apache to generate the above message in its error log:
my $driver = "mysql"; my $server = "localhost:3306"; my $database = "test"; my $url = "DBI:$driver:$database:$server"; my $user = "apache"; my $password = ""; #Connect to database my $db_handle = DBI->connect( $url, $user, $password ) or die $DBI::errstr; #SQL query to execute my $sql = "SELECT * FROM tests WHERE id=?"; #Prepare SQL query my $statement = $db_handle->prepare($sql) or die "Couldn't prepare query '$sql': $DBI::errstr\n"; #Execute SQL Query $statement->execute($idFromSomewhere) or die "Couldn't execute query '$sql': $DBI::errstr\n"; #Get query results as hash my $results = $statement->fetchall_hashref('id'); $db_handle->disconnect();
Will there be any dire consequences by ignoring the said error/warning? The code has been running for a week without any ill effects.
Is there anything wrong with the code or is this just a harmless warning?
Edit
Code is executed via mod_perl.
-
GeneQ over 15 yearsThanks, that did the trick. Although reading the O'Reilly DBI book and the Perl documentation suggest otherwise. Solved in 16 minutes! Go stackoverflow!
-
Paul Tomblin over 15 yearsBut he's calling fetchall_hashref - that's supposed to get all the results!
-
GeneQ over 15 yearsThanks for answering the "why" part of my question Paul. ;-) You deserve your 15k of karma.
-
GeneQ over 15 yearsThe data is fine. It's been pounded by about 1K people continuously for a week. Yes, the documentation says so. Anyway, it could just be the MySQL driver. After calling finish() the warnings stopped appearing. I'm going to upgrade to the latest build of DBI and MYSQL and see what happens.
-
wds over 15 yearsgood point, didn't catch that. The only way to know for sure is check the errors on fetchall I guess.
-
Paul Tomblin over 15 yearsDid you try printing out $statement->err after the fetchall_hashref?
-
GeneQ over 15 yearsNot yet. Will post an update if anything interesting happens.