diff options
| author | Bruce Momjian <bruce@momjian.us> | 2012-07-04 21:58:48 -0400 |
|---|---|---|
| committer | Bruce Momjian <bruce@momjian.us> | 2012-07-04 21:58:48 -0400 |
| commit | 071589cb3f6b4e259d3b87f228fd1c69b8189037 (patch) | |
| tree | f03e64eee2010584f30e01206b828425e0cc9d55 /src | |
| parent | 2bc09ff4994fbeecef9601b8654f3f94b55bc81a (diff) | |
| download | postgresql-071589cb3f6b4e259d3b87f228fd1c69b8189037.tar.gz postgresql-071589cb3f6b4e259d3b87f228fd1c69b8189037.zip | |
Fix missing regex slash that caused perltidy to get confused on
copyright.pl.
Backpatch to 9.2.
Diffstat (limited to 'src')
| -rwxr-xr-x | src/tools/copyright.pl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/tools/copyright.pl b/src/tools/copyright.pl index e91672ec55f..524f285b6a9 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 |