From: Luke Saunders <luke.saunders@gmail.com>
Date: Tue, 19 Feb 2008 13:43:58 +0000 (+0000)
Subject: fixed SQLite dep and dir copy test failure
X-Git-Tag: v1.001002~35
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0caf5ad60a45e06c31dee16032ac15ecc3fa6732;p=dbsrgits%2FDBIx-Class-Fixtures.git

fixed SQLite dep and dir copy test failure
---

diff --git a/Makefile.PL b/Makefile.PL
index c09e031..d7ac50d 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -16,6 +16,7 @@ WriteMakefile(
         '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-*' },
diff --git a/lib/DBIx/Class/Fixtures.pm b/lib/DBIx/Class/Fixtures.pm
index d42e3be..0b783c5 100644
--- a/lib/DBIx/Class/Fixtures.pm
+++ b/lib/DBIx/Class/Fixtures.pm
@@ -720,7 +720,7 @@ sub populate {
     $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') };