Bug#836871: libdbi-perl reports Subroutine UNIVERSAL::VERSION redefined at /usr/share/perl/5.20/version.pm line 59.

[john.luong]

Package: libdbi-perl
Version: 1.631-3+b1

When I invoke test.pl with arguments -W from an ordinary shell prompt, 
it prints the following:

Subroutine UNIVERSAL::VERSION redefined at 
/usr/share/perl/5.20/version.pm line 59.

Expected Result: No message should appear except for errors related to 
database connections.

-------------- next part --------------
#!/usr/bin/perl
use DBI qw(:sql_types);

$dbconn_conninfo = 'dbi:Pg:dbname=xxxxxx;host=dbserver';
$dbconn_username = 'xxxxxxxxx';


my $handle = DBI->connect($dbconn_conninfo, $dbconn_username, undef, { AutoCommit => 0 });