Re: Surprising DBD::Oracle error raised

John D Groenveld <[email protected]> Wed, 05 Feb 2014 08:53:08 -0500

Newsgroups	gmane.comp.lang.perl.modules.dbi.general
Message-ID	<[email protected]>

In message <CAFwScO-TqP5YYcPPTAWZqKKYhZ6QJs3D_G+YV5r9X9apdbMQRA@mail.gmail.com>
, David Nicol writes:
>the error message claimed I hadn't executed the statement.

Where is your DBI_TRACE?
I can't reproduce.

John
[email protected]

use strict;
use DBI;

my $dbh = DBI->connect( "dbi:Oracle:", "scott", "tiger",
                       { RaiseError => 1 } );
my $sth = $dbh->prepare( qq{
 SELECT 'FOO','BAR' FROM dual
} );
$sth->execute;
my ( $foo ) = $sth->fetchrow_array;
if ($sth->fetch) {
   warn "should not enter";
}
$sth->finish;
$dbh->disconnect;