database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-07-07 00:36:50 +03:00
Code Activity

Fix Perl copyright script to skip .git subdirectory; running it on

Browse Source 
those files corrupts the index.
This commit is contained in:
Bruce Momjian
2012-01-01 17:56:51 -05:00
parent 64233902d2
commit 9f60880207
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/tools/copyright.pl
View File

@ -2,7 +2,7 @@
################################################################# #################################################################
# copyright.pl -- update copyright notices throughout the source tree, idempotently. # copyright.pl -- update copyright notices throughout the source tree, idempotently.
# #
# Copyright (c) 2011, PostgreSQL Global Development Group # Copyright (c) 2011-2012, PostgreSQL Global Development Group
# #
# src/tools/copyright.pl # src/tools/copyright.pl
################################################################# #################################################################
@ -23,6 +23,13 @@ print "Using current year: $year\n";
find({wanted => \&wanted, no_chdir => 1}, '.'); find({wanted => \&wanted, no_chdir => 1}, '.');
sub wanted { sub wanted {
# prevent corruption of git indexes, ./.git
if ($File::Find::name =~ m{^\./\.git$})
{
$File::Find::prune = 1;
return;
}
return if ! -f $File::Find::name || -l $File::Find::name; return if ! -f $File::Find::name || -l $File::Find::name;
my @lines; my @lines;