From: Olaf Alders <olaf@wundersolutions.com>
Date: Fri, 19 Apr 2013 19:25:06 +0000 (-0400)
Subject: Applies Michael Reddick's patch from RT 46625.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=refs%2Fheads%2Foalders%2Ftable-casing;p=dbsrgits%2FDBIx-Class-Fixtures.git

Applies Michael Reddick's patch from RT 46625.

https://rt.cpan.org/Ticket/Attachment/613671/311502/lc_bug.patch
---

diff --git a/lib/DBIx/Class/Fixtures.pm b/lib/DBIx/Class/Fixtures.pm
index 291fcfe..f566694 100644
--- a/lib/DBIx/Class/Fixtures.pm
+++ b/lib/DBIx/Class/Fixtures.pm
@@ -1330,7 +1330,7 @@ sub populate {
   }
   $self->msg("- creating temp dir");
   $tmp_fixture_dir->mkpath();
-  for ( map { $schema->source($_)->from } $schema->sources) {
+  for ( map { lc $schema->source($_)->from } $schema->sources ) {
     my $from_dir = $fixture_dir->subdir($_);
     next unless -e $from_dir;
     dircopy($from_dir, $tmp_fixture_dir->subdir($_) );