r14821@dev (orig r4560): lukes | 2008-07-08 19:11:38 -0500
fixed versioned stuff to strip BEGIN from sql files
@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;
}