Fix missing regex slash that caused perltidy to get confused on

copyright.pl.

Backpatch to 9.2.
This commit is contained in:
Bruce Momjian 2012-07-04 21:58:48 -04:00
parent 042d9ffc28
commit 539d38757a

View File

@ -37,16 +37,16 @@ sub wanted
# skip file names with binary extensions # skip file names with binary extensions
# How are these updated? bjm 2012-01-02 # How are these updated? bjm 2012-01-02
return return if ($_ =~ m/\.(ico|bin)$/);
if (
$_ =~ m/\.(ico|bin)$);
my @lines; my @lines;
tie @lines, "Tie::File", $File::Find::name; tie @lines, "Tie::File", $File::Find::name;
foreach my $line (@lines) { foreach my $line (@lines)
# We only care about lines with a copyright notice. {
next unless $line =~ m/$cc . *$pgdg /;
# 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 # We stop when we've done one substitution. This is both for
# efficiency and, at least in the case of this program, for # efficiency and, at least in the case of this program, for