Bug#652091: Doesn't allow passing attribute to DBI->connect

[Anthony DeRobertis]

Package: libpoe-component-dbiagent-perl
Version: 0.26-2
Severity: normal
File: /usr/share/perl5/POE/Component/DBIAgent/Helper.pm
Tags: upstream

The documentation for for DSN says:

       DSN An arrayref of parameters to pass to DBI->connect (usually a dsn,
           username, and password).

So, I should be able to have

	DSN => [
		'dbi:Oracle:tnsname', 'user', 'pass',
		{ ora_session_mode => ORA_SYSDBA }
	],

but that results in an error:

	Usage: $class->connect([$dsn [,$user [,$passwd [,\%attr]]]]) at /usr/share/perl5/POE/Component/DBIAgent/Helper.pm line 163

because _ini_dbi doesn't actually treat DSN the way the docs say;
instead, it always tacks on its on \%attr:

    my $dbh = DBI->connect(@$dsn, { AutoCommit => 1, RaiseError => 0, PrintError => 0 }) or die DBI->errstr;

Which means its not possible to pass ora_session_mode (or any other
attribute) at all.

-- System Information:
Debian Release: wheezy/sid
  APT prefers testing
  APT policy: (500, 'testing'), (200, 'unstable'), (150, 'stable'), (100, 'experimental')
Architecture: amd64 (x86_64)

Kernel: Linux 3.1.0-1-amd64 (SMP w/8 CPU cores)
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash

Versions of packages libpoe-component-dbiagent-perl depends on:
ii  libclass-methodmaker-perl  2.18-1+b1 
ii  libdbi-perl                1.616-1+b2
ii  libpoe-perl                2:1.3120-1
ii  perl                       5.14.2-6  

libpoe-component-dbiagent-perl recommends no packages.

libpoe-component-dbiagent-perl suggests no packages.

-- no debconf information