Commit9f60880

committed

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

those files corrupts the index.

1 parent6423390 commit9f60880Copy full SHA for 9f60880

File tree

-1

lines changed

-1

lines changed

Lines changed: 8 additions & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -2,7 +2,7 @@`
`2`	`2`	`#################################################################`
`3`	`3`	`# copyright.pl -- update copyright notices throughout the source tree, idempotently.`
`4`	`4`	`#`
`5`		`-# Copyright (c) 2011, PostgreSQL Global Development Group`
	`5`	`+# Copyright (c) 2011-2012, PostgreSQL Global Development Group`
`6`	`6`	`#`
`7`	`7`	`# src/tools/copyright.pl`
`8`	`8`	`#################################################################`
`@@ -23,6 +23,13 @@`
`23`	`23`	`find({wanted=> \&wanted,no_chdir=> 1},'.');`
`24`	`24`
`25`	`25`	`subwanted {`
	`26`	`+# prevent corruption of git indexes, ./.git`
	`27`	`+if ($File::Find::name =~m{^\./\.git$})`
	`28`	`+ {`
	`29`	`+$File::Find::prune = 1;`
	`30`	`+return;`
	`31`	`+ }`
	`32`	`+`
`26`	`33`	`returnif !-f$File::Find::name \|\|-l$File::Find::name;`
`27`	`34`
`28`	`35`	`my@lines;`

Comments

(0)