[Bast-commits] r4088 - in DBIx-Class-Fixtures/1.000/trunk: . lib/DBIx/Class

[captainL at dev.catalyst.perl.org]

Author: captainL
Date: 2008-02-19 13:43:58 +0000 (Tue, 19 Feb 2008)
New Revision: 4088

Modified:
   DBIx-Class-Fixtures/1.000/trunk/Makefile.PL
   DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures.pm
Log:
fixed SQLite dep and dir copy test failure

Modified: DBIx-Class-Fixtures/1.000/trunk/Makefile.PL
===================================================================
--- DBIx-Class-Fixtures/1.000/trunk/Makefile.PL	2008-02-19 12:47:22 UTC (rev 4087)
+++ DBIx-Class-Fixtures/1.000/trunk/Makefile.PL	2008-02-19 13:43:58 UTC (rev 4088)
@@ -16,6 +16,7 @@
         'JSON::Syck' => 0.26,
         'Data::Dump::Streamer' => 2.05,
         'Hash::Merge' => 0.10,
+        'DBD::SQLite' => 1.14,
     },
     dist                => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
     clean               => { FILES => 'DBIx-Class-Fixtures-*' },

Modified: DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures.pm
===================================================================
--- DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures.pm	2008-02-19 12:47:22 UTC (rev 4087)
+++ DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures.pm	2008-02-19 13:43:58 UTC (rev 4088)
@@ -720,7 +720,7 @@
     $tmp_fixture_dir->rmtree;
   }
   $self->msg("- creating temp dir");
-  dircopy(dir($fixture_dir, $schema->source($_)->from), dir($tmp_fixture_dir, $schema->source($_)->from)) for $schema->sources;
+  dircopy(dir($fixture_dir, $schema->source($_)->from), dir($tmp_fixture_dir, $schema->source($_)->from)) for grep { -e dir($fixture_dir, $schema->source($_)->from) } $schema->sources;
 
   eval { $schema->storage->dbh->do('SET foreign_key_checks=0') };