From: Arthur Axel 'fREW' Schmidt <frioux@gmail.com>
Date: Sat, 18 Aug 2012 06:25:29 +0000 (-0500)
Subject: fix stupid regex (RT#76323)
X-Git-Tag: v0.002201~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=48c4a2bbd3adc9ed11dc7792ef5e846c74f3f4e8;p=dbsrgits%2FDBIx-Class-DeploymentHandler.git

fix stupid regex (RT#76323)
---

diff --git a/Changes b/Changes
index 9d7251f..2204f75 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 Revision history for {{$dist->name}}
 
 {{$NEXT}}
+       - Fix RT#76323
 
 0.002200  2012-08-02 20:48:52 America/Chicago
        - Added helpful logging for the schema_from_schema_loader ScriptHelper
diff --git a/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm b/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm
index d7601c6..50ff451 100644
--- a/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm
+++ b/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm
@@ -338,7 +338,7 @@ sub _run_sql_and_perl {
      my $sql = ($sql_to_run)?join ";\n", @$sql_to_run:'';
      FILENAME:
      for my $filename (map file($_), @files) {
-       if ($self->ignore_ddl && $filename->basename =~ /^[^_]*-auto.*\.sql$/) {
+       if ($self->ignore_ddl && $filename->basename =~ /^[^-]*-auto.*\.sql$/) {
          next FILENAME
        } elsif ($filename =~ /\.sql$/) {
           $sql .= $self->_run_sql($filename)