Skip to content
Snippets Groups Projects
Commit ee639d27 authored by Bruce Momjian's avatar Bruce Momjian
Browse files

Fix copyright.pl to properly us 'tie' function.

Kris Jurka
parent 6dfcadaf
No related branches found
No related tags found
No related merge requests found
src/tools/backend/flow.gif

489 KiB | W: | H:

src/tools/backend/flow.gif

489 KiB | W: | H:

src/tools/backend/flow.gif
src/tools/backend/flow.gif
src/tools/backend/flow.gif
src/tools/backend/flow.gif
  • 2-up
  • Swipe
  • Onion skin
...@@ -11,6 +11,7 @@ use strict; ...@@ -11,6 +11,7 @@ use strict;
use warnings; use warnings;
use File::Find; use File::Find;
use Tie::File;
my $pgdg = 'PostgreSQL Global Development Group'; my $pgdg = 'PostgreSQL Global Development Group';
my $cc = 'Copyright \(c\) '; my $cc = 'Copyright \(c\) ';
...@@ -22,14 +23,12 @@ print "Using current year: $year\n"; ...@@ -22,14 +23,12 @@ print "Using current year: $year\n";
find({wanted => \&wanted, no_chdir => 1}, '.'); find({wanted => \&wanted, no_chdir => 1}, '.');
sub wanted { sub wanted {
my $filename = $File::Find::name; return if ! -f $File::Find::name || -l $File::Find::name;
# only regular files my @lines;
return if ! -f $filename; tie @lines, "Tie::File", $File::Find::name;
open(my $FILE, '<', $filename) or die "Cannot open $filename"; foreach my $line (@lines) {
foreach my $line (<$FILE>) {
# We only care about lines with a copyright notice. # We only care about lines with a copyright notice.
next unless $line =~ m/$cc.*$pgdg/; 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
...@@ -39,7 +38,7 @@ sub wanted { ...@@ -39,7 +38,7 @@ sub wanted {
last if $line =~ s/($cc\d{4})(, $pgdg)/$1-$year$2/; last if $line =~ s/($cc\d{4})(, $pgdg)/$1-$year$2/;
last if $line =~ s/($cc\d{4})-\d{4}(, $pgdg)/$1-$year$2/; last if $line =~ s/($cc\d{4})-\d{4}(, $pgdg)/$1-$year$2/;
} }
close($FILE) or die "Cannot close $filename"; untie @lines;
} }
print "Manually update doc/src/sgml/legal.sgml and src/interfaces/libpq/libpq.rc.in too\n"; print "Manually update doc/src/sgml/legal.sgml and src/interfaces/libpq/libpq.rc.in too\n";
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment