Re: Core in connecting to Oracle using DBD

[Sean Owens]

Version of Perl 5.005_03
Version of AIX is 4.2!
Version of Oracle is 8.1.5
DBD-Oracle-1.03
DBI-1.13


The problem is that the script below bombs out only the 2nd
and subsequent times I run it.

What I have tried
I have tried recompiling the DBD and the DBI using xlr_c instead of cc this stops the 
core, but it stops IO. Would I need to
recompile the whole perl distribution using xlr_c.


The script I am trying to run is listed below
The Core listing is at the bottom of the mail.

------- start -------

#!/usr/local/perl

# test here for oraperl installation before running
eval 'use Oraperl; 1' || die $@ if $] >= 5;

$dbname = 'dbase';
$dbuser = 'psesoft';
$dbpwd = 'psesoft';

$lda2 = &ora_login($dbname , $dbuser, $dbpwd ) || die $ora_errstr;
# loading up and opening the cursor

$csr2 = &ora_open($lda2, "select * from BuildUsers") || die "ora_open: $ora_errn
o\n";

while(@fields = $csr2->fetchrow_array) {
        print "@fields \n";
        }

&ora_close($csr2)  || warn "ora_close($csr2): $ora_errno: $ora_errstr\n";
&ora_logoff($lda2) || warn "ora_logoff($lda2): $ora_errno: $ora_errstr\n";

print " Select done.\n";

exit 0;


------- end --------

The trace for the core looks like this

Core trace back reads like this

% dbx /usr/bin/perl core
Type 'help' for help.
reading symbolic information ...warning: no source compiled with -g

[using memory image in core]

IOT/Abort trap in Perl_apply at 0x1008d958
0x1008d958 (Perl_apply+0x664) 80410014        lwz   r2,0x14(r1)
(dbx) t
Perl_apply() at 0x1008d958
Perl_pp_kill() at 0x1007e764
Perl_runops_standard() at 0x10043038
perl_call_sv() at 0x1001f598
Perl_sighandler() at 0x10011240

Any ideas folks.

thanks for reading the mail,

Sean Owens