X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fstorage%2Fdbi_env.t;h=a22b91c7e75e5d4160bf5a4acf7f1db6661365ba;hb=d9672fb94b70dac86a6d4fed7ad46a48c5ee4527;hp=f5275c3b4f121a3b51ad1bbb66ca76cb0c75395e;hpb=c1807ed502a52187c5f7654346ddf5135616576f;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/storage/dbi_env.t b/t/storage/dbi_env.t
index f5275c3..a22b91c 100644
--- a/t/storage/dbi_env.t
+++ b/t/storage/dbi_env.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl
 use strict;
 use warnings;
 use lib qw(t/lib);
@@ -70,7 +69,7 @@ $schema = DBICTest::Schema->connect("dbi::$dbname");
 lives_ok { count_sheep($schema) } 'SQLite in DBI_DRIVER';
 isa_ok $schema->storage, 'DBIx::Class::Storage::DBI::SQLite';
 
-undef $ENV{DBI_DRIVER};
+delete $ENV{DBI_DRIVER};
 $ENV{DBI_DSN} = "dbi:SQLite:$dbname";
 $schema = DBICTest::Schema->connect;
 lives_ok { count_sheep($schema) } 'SQLite in DBI_DSN';