Hello, same problem here, solved using DBD-Oracle 1.15 Attention, my config : Win, perl 5.8.3, dbi 1.43 (DBI/DBD downloaded from esoftmatic)
Regards, Alex
LEROY Jean-Louis wrote:
Hello,
the following program:
use strict; use DBI;
my $dbh = DBI->connect(qw( dbi:Oracle: T3_JLL T3_JLL ), { PrintError => 0 }); $dbh->do(q{DROP TABLE Person}); $dbh->disconnect;
$dbh = DBI->connect(qw( dbi:Oracle: T3_JLL T3_JLL ), { PrintError => 1 }); $dbh->do(q{CREATE TABLE Person (id INTEGER PRIMARY KEY, type INTEGER, name VARCHAR(255))}); $dbh->do(q{INSERT INTO Person ( id, type, name ) VALUES ( 1, 1, 'Homer' )});
my $sth = $dbh->prepare('SELECT Person.name, Person.type FROM Person WHERE Person.id = ?') or die; $sth->execute(1); DBI::dump_results($sth);
.... generates an internal error:
DBD::Oracle::st execute failed: ORA-00600: internal error code, arguments: [kpofdr-long], [], [], [], [], [], [], [] (DBD ERROR: error possibly near <*> indicator at char 37 in 'SELECT Person.name, Person.type FROM <*>Person WHERE Person.id = :p1') [for Statement "SELECT Person.name, Person.type FROM Person WHERE Person.id = ?" with ParamValues: :p1=1] at /home/jll/t.pl line 16, <MYSELF> line 19.