[Bast-commits] r7237 - DBIx-Class/0.08/trunk/t

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2009-08-05 18:54:41 +0000 (Wed, 05 Aug 2009)
New Revision: 7237

Modified:
   DBIx-Class/0.08/trunk/t/93storage_replication.t
Log:
Fix testing bug.  Windows only.

Modified: DBIx-Class/0.08/trunk/t/93storage_replication.t
===================================================================
--- DBIx-Class/0.08/trunk/t/93storage_replication.t	2009-08-05 18:53:32 UTC (rev 7236)
+++ DBIx-Class/0.08/trunk/t/93storage_replication.t	2009-08-05 18:54:41 UTC (rev 7237)
@@ -253,6 +253,7 @@
 my $replicated;
 
 for my $method (qw/by_connect_info by_storage_type/) {
+  undef $replicated;
   ok $replicated = $replicated_class->new($method)
       => "Created a replication object $method";