Skip to content
Browse files

Fix line ending processing by Build.

  • Loading branch information...
1 parent 8fad376 commit a418cbd89089f357f7311961f3a5588319fdc106 @perlDreamer perlDreamer committed
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/WGDev/Command/Build.pm
View
4 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;
}

0 comments on commit a418cbd

Please sign in to comment.
Something went wrong with that request. Please try again.