Re: Taking trace () to the next level ...

On Thu, 21 Aug 2008 13:24:08 +0100, "Martin J. Evans"
<[email protected]> wrote:

> H.Merijn Brand wrote:
> 
> <snipped most of this email - I'm on holiday at the moment so will wait 
> until next week to comment but I knew the answer to one question>
> 
> >  DBD::ODBC - Only supports one trace flag odbcdev    - flag is used to
> >  output development tracing so it should not be relevant in normal
> >  use. DBD::ODBC outputs tracing at levels 3 and above (as levels 1 and
> >  2 are reserved for DBI).
> >
> >  Where is it stated that levels 1 and 2 are DBI only?
> >
> http://search.cpan.org/~timb/DBI-1.607/lib/DBI/DBD.pm
> 
> Make use of this as often as you can, but don't output anything at a 
> trace level less than 3. Levels 1 and 2 are reserved for the *DBI*.

Then at least DBD::Oracle and DBD::Unify are not complying to that
requirement.

DBD::Unify uses 2 and up, but DBD::Oracle uses 1 and up

I'm willing to raise all my levels with one if all driver authors line
up. Next DBD::Unify release will have more changes that need reading
for the users, as I now support type_info_all () and get_info (),
causing other methods to sometimes behave different (sometimes wrong,
see other post about tables ())

BTW what is the magic in value -1 from DBI's trace?

    package DBD::Switch::dr;

    sub STORE
    {
	my ($drh, $key, $value) = @_;
	if ($key eq "DebugDispatch") {
	    DBI->trace ($value);
	    }
	elsif ($key eq "DebugLog") {
	    DBI->trace (-1, $value);
	    }
	else {
	    $drh->DBD::_::dr::STORE ($key, $value);
	    }
	} # STORE

Neither DebugDispatch nor DebugLog are described in the man pages

> BTW, I've only replied to dbi-dev as it looked like all of the cc list 
> are on it and I don't like getting every posting twice.

OK. I just wanted to be sure I didn't miss anyone

-- 
H.Merijn Brand          Amsterdam Perl Mongers  http://amsterdam.pm.org/
using & porting perl 5.6.2, 5.8.x, 5.10.x, 5.11.x on HP-UX 10.20, 11.00,
11.11, 11.23, and 11.31, SuSE 10.1, 10.2, and 10.3, AIX 5.2, and Cygwin.
http://mirrors.develooper.com/hpux/           http://www.test-smoke.org/
http://qa.perl.org      http://www.goldmark.org/jeff/stupid-disclaimers/