mirror/postgresql
2
0
Fork 0
mirror of https://git.postgresql.org/git/postgresql.git synced 2024-12-21 08:29:39 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
Kris Jurka
This commit is contained in:
Bruce Momjian 2011-08-19 19:31:12 -04:00
parent 6dfcadafd3
commit ee639d2777
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/tools/backend/flow.gif
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 490 KiB

After

Width:  |  Height:  |  Size: 490 KiB

13
src/tools/copyright.pl
View File

@ -11,6 +11,7 @@ use strict;
use warnings;
use File::Find;
use Tie::File;
my $pgdg = 'PostgreSQL Global Development Group';
my $cc = 'Copyright \(c\) ';
@ -22,14 +23,12 @@ print "Using current year: $year\n";
find({wanted => \&wanted, no_chdir => 1}, '.');
sub wanted {
my $filename = $File::Find::name;
return if ! -f $File::Find::name || -l $File::Find::name;
# only regular files
return if ! -f $filename;
my @lines;
tie @lines, "Tie::File", $File::Find::name;
open(my $FILE, '<', $filename) or die "Cannot open $filename";
foreach my $line (<$FILE>) {
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
@ -39,7 +38,7 @@ sub wanted {
last if $line =~ s/($cc\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";