[svn:dbi] r15077 - dbi/trunk/t

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');