X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FDiff.pm;h=c291ce47dd594d3606acfc24d26f7a4ca3ba36f6;hb=565563b9799775b9992c3f7cb85753b1d2b31c39;hp=cc1ff177841e3ce9d9107dc072e6baac849a0236;hpb=2d23c1e1b5e4e66212eef0bba029664b60fd8cb7;p=dbsrgits%2FSQL-Translator.git diff --git a/lib/SQL/Translator/Diff.pm b/lib/SQL/Translator/Diff.pm index cc1ff17..c291ce4 100644 --- a/lib/SQL/Translator/Diff.pm +++ b/lib/SQL/Translator/Diff.pm @@ -248,8 +248,7 @@ sub produce_diff_sql { my $meth = $producer_class->can($_); $meth ? map { - my $sql = $meth->( (ref $_ eq 'ARRAY' ? @$_ : $_), $self->producer_args ); - $sql ? ("$sql") : (); + map { $_ ? "$_" : () } $meth->( (ref $_ eq 'ARRAY' ? @$_ : $_), $self->producer_args ); } @{ $flattened_diffs{$_} } : $self->ignore_missing_methods ? "-- $producer_class cant $_" @@ -308,7 +307,7 @@ sub produce_diff_sql { } my @return = - map { $_ ? ( $_ =~ /;$/xms ? $_ : "$_;\n\n" ) : "\n" } + map { $_ ? ( $_ =~ /;\s*\z/xms ? $_ : "$_;\n\n" ) : "\n" } ("-- Convert schema '$src_name' to '$tar_name':", @diffs); return wantarray ? @return : join('', @return);