Fix line ending processing by Build.

haarg · Feb 25, 2012 · a418cbd · a418cbd
1 parent 8fad376
commit a418cbd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/WGDev/Command/Build.pm b/lib/WGDev/Command/Build.pm
@@ -129,9 +129,9 @@ sub write_db_structure {
         if ( !$statement && $line =~ /\A(CREATE[ ]TABLE)/msx ) {
             $statement = $1;
         }
-        if ( $statement && $line =~ /;\z/msx ) {
+        if ( $statement && $line =~ /;\n?\z/msx ) {
             if ( $statement eq 'CREATE TABLE' ) {
-                $line =~ s/;\z/ CHARSET=utf8;/msx;
+                $line =~ s/;(\n?)\z/ CHARSET=utf8;$1/msx;
             }
             undef $statement;
         }