From ec0b4db5046f56f1f5c8e68523e464ce28d6e377 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= Date: Tue, 27 Feb 2018 17:34:10 +0100 Subject: [PATCH] Adapt to changes in Perl-Tidy-20180219 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Perl-Tidy-20180219 corrected inserting semicolons after a last statement of a block. That break Mason-Tidy CLI.t tests like this: # Failed test 'no options' # at /builddir/build/BUILD/Mason-Tidy-2.57/blib/lib/Mason/Tidy/t/CLI.pm line 44. # (in Mason::Tidy::t::CLI->test_cli) # got: '% if (foo) { # % bar; # % } # ' # expected: '% if (foo) { # % bar # % } # ' This patch makes sure the simicolon is not inserted. CPAN RT#124604 Signed-off-by: Petr Písař --- lib/Mason/Tidy.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/Mason/Tidy.pm b/lib/Mason/Tidy.pm index 0cdc7d2..4b60076 100644 --- a/lib/Mason/Tidy.pm +++ b/lib/Mason/Tidy.pm @@ -158,7 +158,7 @@ method tidy_method ($source) { $self->perltidy( source => \$untidied_perl, destination => \my $tidied_perl, - argv => $self->perltidy_line_argv . " -fnl -fbl", + argv => $self->perltidy_line_argv . " -fnl -fbl -nasc ", ); $tidied_perl =~ s/^{\n//; $tidied_perl =~ s/}\n$//; -- 2.13.6