screwed up on last release, forgot to merge in branch first

[dbsrgits/DBIx-Class-Fixtures.git] / lib / DBIx / Class / Fixtures.pm

diff --git a/lib/DBIx/Class/Fixtures.pm b/lib/DBIx/Class/Fixtures.pm
index 6e673f6..b2ee16e 100644 (file)
--- a/lib/DBIx/Class/Fixtures.pm
+++ b/lib/DBIx/Class/Fixtures.pm
@@ -23,7 +23,7 @@ our $namespace_counter = 0;
 __PACKAGE__->mk_group_accessors( 'simple' => qw/config_dir
     _inherited_attributes debug schema_class dumped_objects config_attrs/);
 
-our $VERSION = '1.001_029';
+our $VERSION = '1.001_031';
 
 $VERSION = eval $VERSION;
 
@@ -1353,9 +1353,9 @@ sub populate {
     $fixup_visitor = new Data::Visitor::Callback(%callbacks);
   }
 
+  my @sorted_source_names = $self->_get_sorted_sources( $schema );
   $schema->storage->txn_do(sub {
     $schema->storage->with_deferred_fk_checks(sub {
-      my @sorted_source_names = $self->_get_sorted_sources( $schema );
       foreach my $source (@sorted_source_names) {
         $self->msg("- adding " . $source);
         my $rs = $schema->resultset($source);
@@ -1504,7 +1504,6 @@ sub _resolve_deps {
   for my $dep (keys %{ $answers->{$question} }) {
     return {} if $seen->{$dep};
     my $subdeps = _resolve_deps( $dep, $answers, \%seen );
-    ::Dwarn $subdeps if $dep eq 'downloads';
     $ret->{$_} += $subdeps->{$_} for ( keys %$subdeps );
     ++$ret->{$dep};
   }