[Bast-commits] r4560 - DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema

[lukes at dev.catalyst.perl.org]

Author: lukes
Date: 2008-07-09 01:11:38 +0100 (Wed, 09 Jul 2008)
New Revision: 4560

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema/Versioned.pm
Log:
fixed versioned stuff to strip BEGIN from sql files

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema/Versioned.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema/Versioned.pm	2008-07-07 21:38:49 UTC (rev 4559)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema/Versioned.pm	2008-07-09 00:11:38 UTC (rev 4560)
@@ -324,7 +324,7 @@
   @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;
 }