Author: timbo Date: Mon Jan 9 02:36:44 2012 New Revision: 15077 Modified: dbi/trunk/t/20meta.t
Log: Fix test to be strict-safe Curiously http://www.cpantesters.org/cpan/report/e3cdb9b8-3569-11e1-a4b6-92539aeef8c6 failed because the test ran with strict enabled for some reason. Modified: dbi/trunk/t/20meta.t ============================================================================== --- dbi/trunk/t/20meta.t (original) +++ dbi/trunk/t/20meta.t Mon Jan 9 02:36:44 2012 @@ -1,5 +1,6 @@ #!perl -w +use strict; use Test::More tests => 8; $|=1; @@ -8,7 +9,7 @@ BEGIN { use_ok( 'DBI', ':sql_types' ) } BEGIN { use_ok( 'DBI::DBD::Metadata' ) } # just to check for syntax errors etc -$dbh = DBI->connect("dbi:ExampleP:.","","", { FetchHashKeyName => 'NAME_lc' }) +my $dbh = DBI->connect("dbi:ExampleP:.","","", { FetchHashKeyName => 'NAME_lc' }) or die "Unable to connect to ExampleP driver: $DBI::errstr"; isa_ok($dbh, 'DBI::db');
