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
Sean Owens wrote:
