Skip Menu |
 

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the DBD-Oracle CPAN distribution.

Report information
The Basics
Id: 3798
Status: resolved
Priority: 0/
Queue: DBD-Oracle

People
Owner: Nobody in particular
Requestors: rose [...] sj.com
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in: 1.14
Fixed in: (no value)



Subject: $Oraperl::ora_errno doesn't work properly
Download (untitled) / with headers
text/plain 741b
#!/usr/bin/perl -w use strict; use Oraperl; my $lda = ora_login( "mydb", "myuser", "mypass" ) or die $Oraperl::ora_errstr; my $csr; my $stm; my $stm_ok = "select sysdate from dual"; my $stm_nok = "select blah from dual"; $stm = $stm_ok; $csr = ora_open( $lda, $stm ); print "ora_errno= '$ora_errno', '$stm'\n"; $stm = $stm_nok; $csr = ora_open( $lda, $stm ); print "ora_errno= '$ora_errno', '$stm'\n"; $stm = $stm_ok; $csr = ora_open( $lda, $stm ); print "ora_errno= '$ora_errno', '$stm'\n"; __END__ yields: ora_errno= '', 'select sysdate from dual' ora_errno= '904', 'select blah from dual' ora_errno= '904', 'select sysdate from dual' using DBD::Oracle and connect(), prepare, $DBI::err everything works fine Perl 5.8.0, DBI 1.38
Fixed in 1.15 Thanks.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.