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
# 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