Fixup update/new ignoring with scalarrefs

[dbsrgits/DBIx-Class.git] / t / 83cache.t

diff --git a/t/83cache.t b/t/83cache.t
index a3c94c0..78113b3 100644 (file)
--- a/t/83cache.t
+++ b/t/83cache.t
@@ -5,7 +5,7 @@ use Test::More;
 use lib qw(t/lib);
 use DBICTest;
 
-my $schema = DBICTest::init_schema();
+my $schema = DBICTest->init_schema();
 
 my $queries;
 $schema->storage->debugcb( sub{ $queries++ } );
@@ -40,7 +40,7 @@ $rs->set_cache( $artists );
 
 is( scalar @{$rs->get_cache}, 2, 'set_cache() is functional' );
 
-$cd = $schema->resultset('CD')->find(1);
+my $cd = $schema->resultset('CD')->find(1);
 
 $rs->clear_cache;