# New Ticket Created by "Paul Cochrane" # Please include the string: [perl #40458] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=40458 >
Hi, This patch gets the C-file coda test to pick up multiple occurrences of the coda correctly. Regards, Paul files affected: t/codingstd/c_code_coda.t
Index: t/codingstd/c_code_coda.t =================================================================== --- t/codingstd/c_code_coda.t (revision 14845) +++ t/codingstd/c_code_coda.t (working copy) @@ -74,8 +74,8 @@ unless $buf =~ m{\Q$coda\E\n*\z}; # append to the extra_coda array if coda-like text appears more than once - my $vim_many = () = $buf =~ m{^ \s* \*? \s* vim: \s* $}gmx; - my $emacs_many = () = $buf =~ m{^ \s* \*? \s* Local variables: \s* $}gmx; + my $vim_many = () = $buf =~ m{^ \s* \*? \s* vim: \s* }gmx; + my $emacs_many = () = $buf =~ m{^ \s* \*? \s* Local variables: \s* }gmx; push @extra_coda => "$path\n" if $vim_many > 1 || $emacs_many > 1; }