fix-copyright.patch

text/plain

Filename: fix-copyright.patch
Type: text/plain
Part: 0
Message: Re: New copyright program
diff --git a/src/tools/copyright.pl b/src/tools/copyright.pl
index 96b1f22..9531430 100644
--- a/src/tools/copyright.pl
+++ b/src/tools/copyright.pl
@@ -10,10 +10,11 @@
 use strict;
 use warnings;
 
+use Tie::File;
 use File::Find;
 
 my $pgdg = 'PostgreSQL Global Development Group';
-my $cc = 'Copyright (c) ';
+my $cc = 'Copyright \(c\) ';
 # year-1900 is what localtime(time) puts in element 5
 my $year = 1900 + ${[localtime(time)]}[5];
 
@@ -25,7 +26,7 @@ sub wanted {
     return unless -f $File::Find::name;
 
     my @lines;
-    tie @lines, Tie::File, $File::Find::name;
+    tie @lines, 'Tie::File', $File::Find::name;
 
     foreach my $line (@lines) {
         # We only care about lines with a copyright notice.