From: Matt S Trout <mst@shadowcat.co.uk>
Date: Wed, 22 Feb 2006 18:53:04 +0000 (+0000)
Subject: Nuked some test warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6e3b590d49dcff946fd973bda7086928a804e503;p=dbsrgits%2FDBIx-Class-Historic.git

Nuked some test warnings
---

diff --git a/t/run/22cache.tl b/t/run/22cache.tl
index 9402596..6732fc3 100644
--- a/t/run/22cache.tl
+++ b/t/run/22cache.tl
@@ -82,8 +82,8 @@ $artist = $rs->first;
 
 # count the SELECTs
 DBI->trace(0, undef);
-my $selects = 0;
-my $trace = IO::File->new('t/var/dbic.trace', '<') 
+$selects = 0;
+$trace = IO::File->new('t/var/dbic.trace', '<') 
     or die "Unable to read trace file";
 while (<$trace>) {
     $selects++ if /SELECT/;
@@ -93,7 +93,7 @@ unlink 't/var/dbic.trace';
 is($selects, 3, 'one SQL statement for each cached table with nested prefetch');
 
 my @objs;
-my $artist = $rs->find(1);
+$artist = $rs->find(1);
 
 unlink 't/var/dbic.trace' if -e 't/var/dbic.trace';
 DBI->trace(1, 't/var/dbic.trace');
@@ -116,8 +116,8 @@ is_deeply( \@objs, [ 2, 5, 8 ], 'second cd has correct tags' );
 
 # count the SELECTs
 DBI->trace(0, undef);
-my $selects = 0;
-my $trace = IO::File->new('t/var/dbic.trace', '<') 
+$selects = 0;
+$trace = IO::File->new('t/var/dbic.trace', '<') 
     or die "Unable to read trace file";
 while (<$trace>) {
     $selects++ if /SELECT/;