From: Arthur Axel 'fREW' Schmidt <frioux@gmail.com>
Date: Sat, 21 Sep 2013 17:20:44 +0000 (-0500)
Subject: Fix under perl 5.19.4
X-Git-Tag: v0.002208~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f08935ea886d2f908ac7b8210f0970de5c17fb0b;p=dbsrgits%2FDBIx-Class-DeploymentHandler.git

Fix under perl 5.19.4
---

diff --git a/Changes b/Changes
index f2da0f2..9d6b05c 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 Revision history for {{$dist->name}}
 
 {{$NEXT}}
+  - Fix under perl 5.19.4 (thanks Hugmeir)
 
 0.002207  2013-08-29 23:18:27 CST6CDT
   - Modernize usage of Log::Contextual, creating a simple example for how to
diff --git a/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm b/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm
index 9efa8d4..e59c062 100644
--- a/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm
+++ b/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm
@@ -483,10 +483,10 @@ sub _sql_from_yaml {
   my @sql;
 
   my $actual_file = $self->$from_file($version);
-  for my $yaml_filename (@{
+  for my $yaml_filename (@{(
      DlogS_trace { "generating SQL from Serialized SQL Files: $_" }
         (ref $actual_file?$actual_file:[$actual_file])
-  }) {
+  )}) {
      my $sqlt = SQL::Translator->new({
        add_drop_table          => 0,
        parser                  => 'SQL::Translator::Parser::YAML',