Oops, sorry, I meant to reply to group, not to sender... I must not understand what you are looking for. The script in my original post yields the problem regardless if Oraperl.pm has those two lines set as distributed or when changed as suggested. Perhaps there was something more to what you suggested that I should have done and I missed it (I'm a Perl novice)?
Tim Bunce <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > Can you produce a small test script that shows ora_errno > not being reset but $DBD::err being reset? > > Tim. > > On Thu, Sep 11, 2003 at 02:59:27PM -0500, David Deemer wrote: > > Unfortunately this doesn't appear to have done the trick as I am seeing the > > same behavior as before. Do you have any other suggestions of things to try? > > > > > > Tim Bunce <[EMAIL PROTECTED]> wrote in message > > news:[EMAIL PROTECTED] > > > Try chaning these two lines in Oraperl.pm > > > > > > *Oraperl::ora_errno = \$DBD::Oracle::err; > > > *Oraperl::ora_errstr = \$DBD::Oracle::errstr; > > > > > > to: > > > *Oraperl::ora_errno = \$DBD::err; > > > *Oraperl::ora_errstr = \$DBD::errstr; > > > > > > Tim. > > > > > > On Wed, Sep 10, 2003 at 02:00:28PM -0500, [EMAIL PROTECTED] > > wrote: > > > > > > > > I am running into a problem where it appears as though the $ora_errno > > > > variable isn't being properly reset after encountering an error. What I > > am > > > > experiencing is that once $ora_errno and $ora_errstr is set, it stays > > set > > > > upon additional calls to &ora_bind(). The following code produces the > > > > problem: > > > > > > > > <--- code -- > > > > > > > > #!/usr/local/bin/perl > > > > > > > > use Oraperl; > > > > > > > > $DBH = &ora_login("", "userid/[EMAIL PROTECTED]"); > > > > > > > > > > #--------------------------------------------------------------------------- > > > > -------------- > > > > #These values should be empty... > > > > print "Error variables before doing anything...\n"; > > > > print "Error code: $ora_errno\n"; > > > > print "Error text: $ora_errstr\n"; > > > > > > > > > > #--------------------------------------------------------------------------- > > > > --------------- > > > > #First query -- shouldn't produce an error and will return a result. > > > > $sql = "select log_data from log_os where os_id = :1"; > > > > $csr = &ora_open($DBH, $sql); > > > > &ora_bind($csr, '1'); > > > > ($value) = &ora_fetch($csr); > > > > print "\nValue from query 1: $value\n"; > > > > print "\nError variables after basic query 1...\n"; > > > > print "Error code: $ora_errno\n"; > > > > print "Error text: $ora_errstr\n"; > > > > > > > > > > #--------------------------------------------------------------------------- > > > > --------------- > > > > #Second query -- will produce an error (ORA-01722: invalid number (DBD > > > > ERROR: OCIStmtExecute)) because > > > > #the bind variable isn't the correct type > > > > &ora_bind($csr, 'a'); > > > > ($value) = &ora_fetch($csr); > > > > print "\nValue from query 2: $value\n"; > > > > print "\nError variables after basic query 2...\n"; > > > > print "Error code: $ora_errno\n"; > > > > print "Error text: $ora_errstr\n"; > > > > > > > > > > #--------------------------------------------------------------------------- > > > > --------------- > > > > #Third attempt -- shouldn't produce an error and will return a result. > > The > > > > problem, however, is that $ora_errno and $ora_errstr > > > > #still has the previous error AFTER the successful &ora_bind() and > > > > $ora_fetch() call. > > > > &ora_bind($csr, 2); > > > > ($value) = &ora_fetch($csr); > > > > print "\nValue from query 3: $value\n"; > > > > print "\nError variables after basic query 3...\n"; > > > > print "Error code: $ora_errno\n"; > > > > print "Error text: $ora_errstr\n"; > > > > > > > > &ora_close($csr); > > > > print "Logoff of oracle....\n"; > > > > &ora_logoff($DBH); > > > > print "\n"; > > > > > > > > -- end code --> > > > > > > > > Is this possibly an installation/configuration problem? Something else? > > > > > > > > The various versions are: > > > > Oraperl emulation interface version 1.43 > > > > DBD::Oracle 1.14 using OCI8 by Tim Bunce > > > > DBI 1.37 by Tim Bunce > > > > Perl v5.6.0 build for AIX > > > > AIX version 5 > > > > > > > > Thank you for your help. > > > > > > > > ________________________________________ > > > > > > > > This e-mail and any files transmitted with it are confidential and are > > > > intended solely for the use of the individual or entity to whom they > > > > are addressed. If you are not the intended recipient or the individual > > > > responsible for delivering the e-mail to the intended recipient, please > > > > be advised that you have received this e-mail in error and that any > > > > use, dissemination, forwarding, printing, or copying of this e-mail > > > > is strictly prohibited. > > > > > > > > If you have received this e-mail in error, please immediately notify > > > > the HealthPartners Support Center by telephone at (952) 967-6600. > > > > You will be reimbursed for reasonable costs incurred in notifying us. > > > >
