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.

Reply via email to