Ok I Compiled it again on a Windows bos asme as before and it was OK
Just for your info Tim I have attached the output of the 'nmake tes't from
the 85gofer till the end.
Cheers John Scoles
----- Original Message -----
From: "Tim Bunce" <[EMAIL PROTECTED]>
To: "Martin J. Evans" <[EMAIL PROTECTED]>
Cc: <[email protected]>
Sent: Wednesday, February 21, 2007 8:50 PM
Subject: Re: How to call DBD::Oracle's dbms_output_get from within a DBIx
On Wed, Feb 21, 2007 at 04:25:54PM +0000, Martin J. Evans wrote:
Hi,
I have DBIx::Log4perl which is currently connected to a DBD::Oracle. In
DBIx::Log4perl::st::execute I want to call DBD::Oracle's dbms_get_line
which is usually (from applications) called like this:
@lines = $dbh->func('dbms_output_get');
As I'm in st::execute I have a $sth and can get hold of a $dbh.
I'd expect this to work:
$dbh = $sth->FETCH('Database');
@lines = $dbh->func('dbms_output_get');
Tim.
t/85gofer.................ok
t/pod.....................skipped
all skipped: Test::Pod 1.00 required for testing POD
t/zvg_01basics............ok
4/132 skipped: developer tests
t/zvg_02dbidrv............ok
t/zvg_03handle............ok
44/137 skipped: various reasons
t/zvg_04mods..............ok
t/zvg_05thrclone.......... You can ignore the 10 'Scalars leaked' messages you
may see her
e (or send me a patch to fix the underlying problem)
t/zvg_05thrclone..........ok 8/43Scalars leaked: 1
Scalars leaked: 1
Scalars leaked: 1
Scalars leaked: 1
Scalars leaked: 1
Scalars leaked: 1
Scalars leaked: 1
Scalars leaked: 1
Scalars leaked: 1
Scalars leaked: 1
t/zvg_05thrclone..........ok
t/zvg_06attrs.............ok
t/zvg_07kids..............ok
t/zvg_08keeperr...........ok
t/zvg_09trace.............ok
t/zvg_10examp.............ok
t/zvg_11fetch.............ok
t/zvg_12quote.............ok
t/zvg_13taint.............skipped
all skipped: Taint attribute tests not functional with DBI_AUTOPROXY
t/zvg_14utf8..............ok
t/zvg_15array.............ok
t/zvg_19fhtrace...........ok
t/zvg_20meta..............ok
t/zvg_30subclass..........ok
t/zvg_40profile...........ok
t/zvg_41prof_dump.........ok
t/zvg_42prof_data.........ok
t/zvg_43prof_env..........ok
t/zvg_50dbm...............ok
2/12 skipped: Can't set attributes after connect using DBD::Gofer
t/zvg_60preparse..........ok
t/zvg_65transact..........skipped
all skipped: Transactions not supported by DBD::Gofer
t/zvg_70callbacks.........ok
t/zvg_72childhandles......ok
2/14 skipped: slow tests avoided when using DBD::Gofer
t/zvg_80proxy.............ok
t/zvg_85gofer.............ok
t/zvp_01basics............ok
4/132 skipped: developer tests
t/zvp_02dbidrv............ok
10/51 skipped: various reasons
t/zvp_03handle............ok
76/137 skipped: various reasons
t/zvp_04mods..............ok
t/zvp_05thrclone..........ok
t/zvp_06attrs.............ok
7/137 skipped: various reasons
t/zvp_07kids..............skipped
all skipped: $h->{Kids} attribute not supported for DBI::PurePerl
t/zvp_08keeperr...........ok
t/zvp_09trace.............ok
t/zvp_10examp.............ok
3/204 skipped: inner/outer handles not fully supported for DBI::PurePerl
t/zvp_11fetch.............ok
t/zvp_12quote.............ok
t/zvp_13taint.............skipped
all skipped: Taint attributes not supported with DBI::PurePerl
t/zvp_14utf8..............ok
t/zvp_15array.............ok
t/zvp_19fhtrace...........ok
t/zvp_20meta..............ok
t/zvp_30subclass..........ok
t/zvp_40profile...........skipped
all skipped: profiling not supported for DBI::PurePerl
t/zvp_41prof_dump.........skipped
all skipped: profiling not supported for DBI::PurePerl
t/zvp_42prof_data.........skipped
all skipped: profiling not supported for DBI::PurePerl
t/zvp_43prof_env..........skipped
all skipped: profiling not supported for DBI::PurePerl
t/zvp_50dbm...............ok
t/zvp_60preparse..........skipped
all skipped: preparse not supported for DBI::PurePerl
t/zvp_65transact..........ok
t/zvp_70callbacks.........skipped
all skipped: $h->{Callbacks} attribute not supported for DBI::PurePerl
t/zvp_72childhandles......ok
t/zvp_80proxy.............skipped
all skipped: DBD::Proxy currently has a problem under DBI::PurePerl
t/zvp_85gofer.............ok
t/zvxgp_01basics..........ok
4/132 skipped: developer tests
t/zvxgp_02dbidrv..........ok
10/51 skipped: various reasons
t/zvxgp_03handle..........ok
76/137 skipped: various reasons
t/zvxgp_04mods............ok
t/zvxgp_05thrclone........ok
t/zvxgp_06attrs...........ok
7/137 skipped: various reasons
t/zvxgp_07kids............skipped
all skipped: $h->{Kids} attribute not supported for DBI::PurePerl
t/zvxgp_08keeperr.........ok
t/zvxgp_09trace...........ok
t/zvxgp_10examp...........ok
3/204 skipped: inner/outer handles not fully supported for DBI::PurePerl
t/zvxgp_11fetch...........ok
t/zvxgp_12quote...........ok
t/zvxgp_13taint...........skipped
all skipped: Taint attributes not supported with DBI::PurePerl
t/zvxgp_14utf8............ok
t/zvxgp_15array...........ok
t/zvxgp_19fhtrace.........ok
t/zvxgp_20meta............ok
t/zvxgp_30subclass........ok
t/zvxgp_40profile.........skipped
all skipped: profiling not supported for DBI::PurePerl
t/zvxgp_41prof_dump.......skipped
all skipped: profiling not supported for DBI::PurePerl
t/zvxgp_42prof_data.......skipped
all skipped: profiling not supported for DBI::PurePerl
t/zvxgp_43prof_env........skipped
all skipped: profiling not supported for DBI::PurePerl
t/zvxgp_50dbm.............ok
2/12 skipped: Can't set attributes after connect using DBD::Gofer
t/zvxgp_60preparse........skipped
all skipped: preparse not supported for DBI::PurePerl
t/zvxgp_65transact........skipped
all skipped: Transactions not supported by DBD::Gofer
t/zvxgp_70callbacks.......skipped
all skipped: $h->{Callbacks} attribute not supported for DBI::PurePerl
t/zvxgp_72childhandles....ok
2/14 skipped: slow tests avoided when using DBD::Gofer
t/zvxgp_80proxy...........skipped
all skipped: DBD::Proxy currently has a problem under DBI::PurePerl
t/zvxgp_85gofer...........ok
All tests successful, 22 tests and 260 subtests skipped.
Files=117, Tests=5134, 82 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU)
C:\Perl\bin\perl.exe "-Iblib\lib" "-Iblib\arch" test.pl
test.pl
DBI test application $Revision: 8812 $
Switch: DBI 1.54 by Tim Bunce, 1.54
Available Drivers: DBM, ExampleP, File, Gofer, Multiplex, Oracle, Proxy, Sponge
dbi:ExampleP:: testing 5 sets of 20 connections:
Connecting... 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
Disconnecting...
Connecting... 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
Disconnecting...
Connecting... 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
Disconnecting...
Connecting... 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
Disconnecting...
Connecting... 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
Disconnecting...
Made 100 connections in 0 wallclock secs ( 0.01 usr + 0.00 sys = 0.01 CPU)
Testing handle creation speed...
8888 NullP sth/s perl 5.008008 MSWin32-x86-multi-thread (cl 12.00.8804 -MD -Zi
-DNDEBUG -
O1) 0.000113s
