From: guido <guido@0785d39b-7218-0410-832d-ea1e28bc413d>
Date: Tue, 29 Mar 2005 16:27:05 +0000 (+0000)
Subject: do not extend to end of line
X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=895ed546f893f4a1be3efd18796af3c66b1eb54e;p=dealii-svn.git

do not extend to end of line


git-svn-id: https://svn.dealii.org/trunk@10291 0785d39b-7218-0410-832d-ea1e28bc413d
---

diff --git a/deal.II/common/scripts/copyright.pl b/deal.II/common/scripts/copyright.pl
index 04417c51b1..340c0b038a 100644
--- a/deal.II/common/scripts/copyright.pl
+++ b/deal.II/common/scripts/copyright.pl
@@ -39,18 +39,21 @@ my $copyreg = "Copyright \\(C\\) $copystring by the deal.II authors";
 $copystring = "Copyright (C) $copystring by the deal.II authors";
 
 my $found = 0;
+my $qpl = 0;
 my $ok = 0;
 
 while(<>)
 {
-    next unless (m/(Copyright.*)/);
+    next unless (m/(Copyright.*authors)/);
     my $copyfile = $1;
     $found = 1;
     if (m/$copyreg/)
     {
 	$ok = 1;
-    } else { 
-	print "perl -pi~ -e 's/$copyfile/$copystring/;' $file\n";
+    } else {
+	$copyfile =~ s/\(/\\(/;
+	$copyfile =~ s/\)/\\)/;
+	print "perl -pi~ -e 's{$copyfile}{$copystring};' $file\n";
     }
 }