Skip Menu | will be shut down on March 1st, 2021.

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: 84657
Status: resolved
Priority: 0/
Queue: DBD-Oracle

Owner: Nobody in particular
Requestors: sgoeldner [...]

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

Subject: Use of uninitialized value $user_only in uc
Download (untitled) / with headers
text/plain 405b
Running #!perl -w use DBI(); use DBD::Oracle(); my $att = { RaiseError => 1 }; $att->{ora_session_mode} = DBD::Oracle::ORA_SYSDBA | DBD::Oracle::OCI_PRELIM_AUTH; my @cxn = ('dbi:Oracle:', undef, undef, $att ); my $dbh = DBI->connect( @cxn ); $dbh->disconnect; gives Use of uninitialized value $user_only in uc ... at line 310. The attached patch fixes this.
text/x-diff 425b
--- Oracle.160 Mon Apr 01 17:42:12 2013 +++ Tue Apr 16 09:46:36 2013 @@ -304,7 +304,7 @@ unless (length $user_only) { $user_only = $dbh->selectrow_array(q{ SELECT SYS_CONTEXT('userenv','session_user') FROM DUAL - }); + })||''; $dbh_inner->{Username} = $user_only; # these two are just for backwards compatibility $dbh_inner->{USER} = $dbh_inner->{CURRENT_USER} = uc $user_only;
Merged to master. Thank you. Michael Portnoy
in v1.64

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

Please report any issues with to