From: Luke Saunders <luke.saunders@gmail.com>
Date: Wed, 9 Jul 2008 00:11:38 +0000 (+0000)
Subject: fixed versioned stuff to strip BEGIN from sql files
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=07d404a8b7f0e2f0f23c7de81044bea4689001b8;p=dbsrgits%2FDBIx-Class-Historic.git

fixed versioned stuff to strip BEGIN from sql files
---

diff --git a/lib/DBIx/Class/Schema/Versioned.pm b/lib/DBIx/Class/Schema/Versioned.pm
index 0799202..1b864cc 100644
--- a/lib/DBIx/Class/Schema/Versioned.pm
+++ b/lib/DBIx/Class/Schema/Versioned.pm
@@ -324,7 +324,7 @@ sub _read_sql_file {
   @data = split(/;/, join('', @data));
   close($fh);
   @data = grep { $_ && $_ !~ /^-- / } @data;
-  @data = grep { $_ !~ /^(BEGIN TRANSACTION|COMMIT)/m } @data;
+  @data = grep { $_ !~ /^(BEGIN|BEGIN TRANSACTION|COMMIT)/m } @data;
   return \@data;
 }