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 | 539d38757a4709b5039ed4318567349da06f0690 (patch) | |
| tree | a3da658b17e47e8714c8330047db4e81c233687b | |
| parent | 042d9ffc282a8c796d2a5babc600c1a6db150dac (diff) | |
| download | postgresql-539d38757a4709b5039ed4318567349da06f0690.tar.gz postgresql-539d38757a4709b5039ed4318567349da06f0690.zip | |
Fix missing regex slash that caused perltidy to get confused on
copyright.pl.
Backpatch to 9.2.
| -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 2ef35d25256..a55228d6ec8 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 |