Commit272c289

committed

Remove use of 'tie' in perl for copyright.pl; instead use normal file

open/close.

1 parentda64fb9 commit272c289Copy full SHA for 272c289

File tree

-5

lines changed

-5

lines changed

Lines changed: 7 additions & 5 deletions

Original file line number	Diff line number	Diff line change
`@@ -22,12 +22,14 @@`
`22`	`22`	`find({wanted=> \&wanted,no_chdir=> 1},'.');`
`23`	`23`
`24`	`24`	`subwanted {`
`25`		`-returnunless-f$File::Find::name;`
	`25`	`+my$filename =$File::Find::name;`
`26`	`26`
`27`		`-my@lines;`
`28`		`-tie@lines, Tie::File,$File::Find::name;`
	`27`	`+# only regular files`
	`28`	`+returnif !-f$filename;`
`29`	`29`
`30`		`-foreachmy$line (@lines) {`
	`30`	`+open(my$FILE,'<',$filename)ordie"Cannot open$filename";`
	`31`	`+`
	`32`	`+foreachmy$line (<$FILE>) {`
`31`	`33`	`# We only care about lines with a copyright notice.`
`32`	`34`	`nextunless$line =~m/$cc.*$pgdg/;`
`33`	`35`	`# We stop when we've done one substitution. This is both for`
`@@ -37,7 +39,7 @@ sub wanted {`
`37`	`39`	`lastif$line =~s/($cc\d{4})(, $pgdg)/$1-$year$2/;`
`38`	`40`	`lastif$line =~s/($cc\d{4})-\d{4}(, $pgdg)/$1-$year$2/;`
`39`	`41`	`}`
`40`		`-untie@lines;`
	`42`	`+close($FILE)ordie"Cannot close$filename";`
`41`	`43`	`}`
`42`	`44`
`43`	`45`	`print"Manually update doc/src/sgml/legal.sgml and src/interfaces/libpq/libpq.rc.in too\n";`

Comments

(0)