From 539d38757a4709b5039ed4318567349da06f0690 Mon Sep 17 00:00:00 2001 From: Bruce Momjian Date: Wed, 4 Jul 2012 21:58:48 -0400 Subject: [PATCH] Fix missing regex slash that caused perltidy to get confused on copyright.pl. Backpatch to 9.2. --- src/tools/copyright.pl | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/src/tools/copyright.pl b/src/tools/copyright.pl index 2ef35d2525..a55228d6ec 100755 --- a/src/tools/copyright.pl +++ b/src/tools/copyright.pl @@ -37,16 +37,16 @@ sub wanted # skip file names with binary extensions # How are these updated? bjm 2012-01-02 - return - if ( - $_ =~ m/\.(ico|bin)$); + return if ($_ =~ m/\.(ico|bin)$/); - my @lines; - tie @lines, "Tie::File", $File::Find::name; + my @lines; + tie @lines, "Tie::File", $File::Find::name; - foreach my $line (@lines) { - # We only care about lines with a copyright notice. - next unless $line =~ m/$cc . *$pgdg /; + foreach my $line (@lines) + { + + # We only care about lines with a copyright notice. + next unless $line =~ m/$cc . *$pgdg /; # We stop when we've done one substitution. This is both for # efficiency and, at least in the case of this program, for -- 2.40.0