[Bast-commits] r6077 - DBIx-Class-Fixtures/1.001/trunk/lib/DBIx/Class

[lukes at dev.catalyst.perl.org]

Author: lukes
Date: 2009-05-01 00:48:14 +0100 (Fri, 01 May 2009)
New Revision: 6077

Modified:
   DBIx-Class-Fixtures/1.001/trunk/lib/DBIx/Class/Fixtures.pm
Log:
fixed bug causing errors when fixture directory had no subdirs

Modified: DBIx-Class-Fixtures/1.001/trunk/lib/DBIx/Class/Fixtures.pm
===================================================================
--- DBIx-Class-Fixtures/1.001/trunk/lib/DBIx/Class/Fixtures.pm	2009-04-30 22:34:17 UTC (rev 6076)
+++ DBIx-Class-Fixtures/1.001/trunk/lib/DBIx/Class/Fixtures.pm	2009-04-30 23:48:14 UTC (rev 6077)
@@ -999,7 +999,6 @@
   
   $self->msg("\nimporting fixtures");
   my $tmp_fixture_dir = dir($fixture_dir, "-~populate~-" . $<);
-
   my $version_file = file($fixture_dir, '_dumper_version');
 #  DBIx::Class::Exception->throw('no version file found');
 #    unless -e $version_file;
@@ -1009,6 +1008,7 @@
     $tmp_fixture_dir->rmtree;
   }
   $self->msg("- creating temp dir");
+  $tmp_fixture_dir->mkpath();
   for ( map { $schema->source($_)->from } $schema->sources) {
     my $from_dir = $fixture_dir->subdir($_);
     next unless -e $from_dir;