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

[nigel at dev.catalyst.perl.org]

Author: nigel
Date: 2008-06-30 15:30:11 +0100 (Mon, 30 Jun 2008)
New Revision: 4541

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema/Versioned.pm
Log:
Corrected spelling of TRANSACTION in code reading sql upgrade script.
Pointed out by renormalist on IRC.


Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema/Versioned.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema/Versioned.pm	2008-06-30 13:32:03 UTC (rev 4540)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema/Versioned.pm	2008-06-30 14:30:11 UTC (rev 4541)
@@ -342,7 +342,7 @@
   @data = split(/;/, join('', @data));
   close($fh);
   @data = grep { $_ && $_ !~ /^-- / } @data;
-  @data = grep { $_ !~ /^(BEGIN TRANACTION|COMMIT)/m } @data;
+  @data = grep { $_ !~ /^(BEGIN TRANSACTION|COMMIT)/m } @data;
   return \@data;
 }