[Bast-commits] r5485 - in DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t: lib var

[zby at dev.catalyst.perl.org]

Author: zby
Date: 2009-02-16 13:18:14 +0000 (Mon, 16 Feb 2009)
New Revision: 5485

Modified:
   DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/lib/RunTests.pm
   DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/var/dvdzbr.db
Log:
one less warning in tests

Modified: DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/lib/RunTests.pm
===================================================================
--- DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/lib/RunTests.pm	2009-02-16 13:17:07 UTC (rev 5484)
+++ DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/lib/RunTests.pm	2009-02-16 13:18:14 UTC (rev 5485)
@@ -18,10 +18,9 @@
     my $another_owner = $user_rs->next;
     my $initial_user_count = $user_rs->count;
     my $initial_dvd_count = $dvd_rs->count;
+    my $updates;
    
     # creating new record linked to some old record
-    
-    my $updates;
     $updates = {
             name => 'Test name 2',
             viewings => [ { user_id => $owner->id } ],
@@ -38,7 +37,7 @@
     is ( $new_dvd->viewings->count, 1, 'Viewing created' );
 
     # creating new records
-    my $updates = {
+    $updates = {
             aaaa => undef,
             tags => [ '2', { id => '3' } ], 
             name => 'Test name',

Modified: DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/var/dvdzbr.db
===================================================================
(Binary files differ)