From: Guido Kanschat Date: Tue, 29 Mar 2005 16:27:05 +0000 (+0000) Subject: do not extend to end of line X-Git-Tag: v8.0.0~14256 X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fa16245ebfaa0b604620e0a48116ccc20b87ace2;p=dealii.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"; } }