On Tue 25 Mar 2003 15:09, Tim Bunce <[EMAIL PROTECTED]> wrote:
> Here's a Release Candidate of DBD::Oracle 1.14:
>
> http://homepage.eircom.net/~timbunce/DBD-Oracle-1.14-20020325gamma.tar.gz
>
> I'd appreciate it if people could give it a whirl ASAP...
Hmm, allow even better fallback mechanism for version detection from $OH?
--8<---
Using Oracle in /pro/oracle/v817
WARNING: could not decode oracle version from
/pro/oracle/v817/orainst/inspdver
or from Oracle Home:
/pro/oracle/v817
Oracle version based logic may produce erroneous results
-->8---
Maybe you can guard the tests against `closed' databases:
--8<---
lep l1:/pro/3gl/CPAN/DBD-Oracle-1.14 115 > make test
PERL_DL_NONLAZY=1 /pro/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0,
'blib/lib', 'blib/arch')" t/*.t
t/base.......ok
t/cursor.....Unable to connect to Oracle as foo/bar (ORA-01034: ORACLE not
available
ORA-27101: shared memory realm does not exist
HP-UX Error: 2: No such file or directory (DBD ERROR: OCISessionBegin))
Tests skipped.
skipped
all skipped: no reason given
:
:
:
Data sources:
dbi:Oracle:EXTPROC_CONNECTION_DATA
dbi:Oracle:beltest
dbi:Oracle:bevkst
dbi:Oracle:bevtest
dbi:Oracle:lep0392
dbi:Oracle:lrdtest
Connecting
to '' (from command line, else uses ORACLE_SID or TWO_TASK - recommended)
as 'foo/bar' (via ORACLE_USERID env var or default - recommend name/passw
[EMAIL PROTECTED])
(ORACLE_SID='lep0392', TWO_TASK='')
DBI connect('','foo/bar',...) failed: ORA-01034: ORACLE not available
ORA-27101: shared memory realm does not exist
HP-UX Error: 2: No such file or directory (DBD ERROR: OCISessionBegin) at /pro/3
gl/CPAN/DBD-Oracle-1.14/blib/lib/Oraperl.pm line 97
Use of uninitialized value in concatenation (.) or string at test.pl line 69.
Use of uninitialized value in concatenation (.) or string at test.pl line 69.
ora_login: :
Use of uninitialized value in numeric eq (==) at test.pl line 71.
Use of uninitialized value in numeric eq (==) at test.pl line 73.
Use of uninitialized value in numeric eq (==) at test.pl line 75.
Use of uninitialized value in numeric eq (==) at test.pl line 77.
Use of uninitialized value in numeric eq (==) at test.pl line 79.
Generally set TWO_TASK or ORACLE_SID but not both at the same time.
Try to connect to the database using an oracle tool like sqlplus
only if that works should you suspect problems with DBD::Oracle.
Try leaving dbname value empty and set dbuser to name/[EMAIL PROTECTED]
Test aborted.
make: *** [test_dynamic] Error 255
-->8---
After starting the DB, I get
--8<---
lep l1:/pro/3gl/CPAN/DBD-Oracle-1.14 117 > make test
PERL_DL_NONLAZY=1 /pro/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0,
'blib/lib', 'blib/arch')" t/*.t
t/base.......ok
t/cursor.....ok
t/general....ok
t/long.......ok
t/meta.......Use of uninitialized value in sprintf at
/pro/3gl/CPAN/DBD-Oracle-1.14/blib/lib/DBD/Oracle/GetInfo.pm line 7.
Use of uninitialized value in sprintf at
/pro/3gl/CPAN/DBD-Oracle-1.14/blib/lib/DBD/Oracle/GetInfo.pm line 7.
Use of uninitialized value in sprintf at
/pro/3gl/CPAN/DBD-Oracle-1.14/blib/lib/DBD/Oracle/GetInfo.pm line 7.
Use of uninitialized value in sprintf at
/pro/3gl/CPAN/DBD-Oracle-1.14/blib/lib/DBD/Oracle/GetInfo.pm line 7.
t/meta.......ok
t/ph_type....ok
t/plsql......ok
t/reauth.....skipped
all skipped: no reason given
t/select.....ok
All tests successful, 1 test skipped.
Files=9, Tests=4262, 28 wallclock secs (11.48 cusr + 1.50 csys = 12.98 CPU)
-->8---
FWIW Perl-5.8.0+, DBI-1.35, Oracle 8.1.7.4/32, HP-UX 11.00
5.6.1 is much cleaner:
--8<---
lep l1:/pro/3gl/CPAN/DBD-Oracle-1.14 122 > make test
PERL_DL_NONLAZY=1 /pro/bin/perl5.6.1 "-MExtUtils::Command::MM" "-e" "test_harness(0,
'blib/lib', 'blib/arch')" t/*.t
t/base.......ok
t/cursor.....ok
t/general....ok
t/long.......ok
t/meta.......ok
t/ph_type....ok
t/plsql......ok
t/reauth.....skipped
all skipped: no reason given
t/select.....ok
All tests successful, 1 test skipped.
Files=9, Tests=4262, 21 wallclock secs ( 7.95 cusr + 0.94 csys = 8.89 CPU)
-->8---
and 5.9.0 is noisy too:
--8<---
lep l1:/pro/3gl/CPAN/DBD-Oracle-1.14 127 > make test
PERL_DL_NONLAZY=1 /pro/bin/perl5.9.0 "-MExtUtils::Command::MM" "-e" "test_harness(0,
'blib/lib', 'blib/arch')" t/*.t
t/base.......ok
t/cursor.....ok
t/general....ok
t/long.......ok
t/meta.......Use of uninitialized value in sprintf at
/pro/3gl/CPAN/DBD-Oracle-1.14/blib/lib/DBD/Oracle/GetInfo.pm line 7.
Use of uninitialized value in sprintf at
/pro/3gl/CPAN/DBD-Oracle-1.14/blib/lib/DBD/Oracle/GetInfo.pm line 7.
Use of uninitialized value in sprintf at
/pro/3gl/CPAN/DBD-Oracle-1.14/blib/lib/DBD/Oracle/GetInfo.pm line 7.
Use of uninitialized value in sprintf at
/pro/3gl/CPAN/DBD-Oracle-1.14/blib/lib/DBD/Oracle/GetInfo.pm line 7.
t/meta.......ok
t/ph_type....ok
t/plsql......ok
t/reauth.....skipped
all skipped: no reason given
t/select.....ok
All tests successful, 1 test skipped.
Files=9, Tests=4262, 21 wallclock secs (12.08 cusr + 1.14 csys = 13.22 CPU)
-->8---
--8<--- GetInfo.pm
my $fmt = '%02d.%02d.%1d%1d%1d%1d'; # ODBC version string: ##.##.#####
my $sql_driver_ver = sprintf $fmt, split (/\./, $DBD::Oracle::VERSION);
-->8---
$DBD::Oracle::VERSION = 1.14
maybe you want
my $sql_driver_ver = sprintf $fmt, split (/\./, "$DBD::Oracle::VERSION.0.0.0.0.0.0");
That yields:
--8<---
lep l1:/pro/3gl/CPAN/DBD-Oracle-1.14 133 > perl5.9.0 -I blib/lib -I blib/arch t/meta.t
1..10
2355 tables
ok 1
schema list: table_info(undef, '%', undef, undef)
ok 2
ok 3
ok 4
schema list: 6 rows, 0 seconds
type list: table_info(undef, undef, undef, '%')
ok 5
ok 6
ok 7
type list: 4 rows, 0 seconds
table list: table_info(undef, undef, undef, undef)
ok 8
ok 9
ok 10
table list: 2355 rows, 1 seconds
lep l1:/pro/3gl/CPAN/DBD-Oracle-1.14 134 >
-->8---
which is a lot cleaner!
> Thanks!
>
> Tim.
>
> =head1 Changes in DBD-Oracle 1.14 25th March 2003
>
> NOTE: OCI 7 and Oraperl will not be supported in future releases.
>
> Implemented inserting NULL values into LOB fields using placeholders,
> (sponsored by bayerwald-fenster.de thanks to Bernhard Donaubauer).
> Fixed broken get_info() due to missing GetInfo.pm #2274.
> Fixed compiler warnings/errors thanks to H.Merijn Brand.
> Fixed bind_param with array ref to croak not warn, reported by Steven Roels.
> Fixed Makefile.PL for more HPUX/Oracle configurations thanks to Lincoln Baxter.
> Simplified MacOS X build thanks to Brook Schofield, see README.macosx.
> Updated README.hpux thanks to H.Merijn Brand, Jay Strauss, and Lincoln Baxter.
> Updated README and README.utf8 with minor changes thanks to Alexey Mahotkin.
>
> =cut
--
H.Merijn Brand Amsterdam Perl Mongers (http://amsterdam.pm.org/)
using perl-5.6.1, 5.8.0 & 632 on HP-UX 10.20 & 11.00, AIX 4.2, AIX 4.3,
WinNT 4, Win2K pro & WinCE 2.11 often with Tk800.024 &/| DBD-Unify
ftp://ftp.funet.fi/pub/languages/perl/CPAN/authors/id/H/HM/HMBRAND/
