]> https://gitweb.dealii.org/ - dealii.git/commitdiff
do not extend to end of line
authorGuido Kanschat <dr.guido.kanschat@gmail.com>
Tue, 29 Mar 2005 16:27:05 +0000 (16:27 +0000)
committerGuido Kanschat <dr.guido.kanschat@gmail.com>
Tue, 29 Mar 2005 16:27:05 +0000 (16:27 +0000)
git-svn-id: https://svn.dealii.org/trunk@10291 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/common/scripts/copyright.pl

index 04417c51b163abe37b0284bf2e8700d2b039d910..340c0b038acbd791b790a58181cd80305cc34354 100644 (file)
@@ -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";
     }
 }
 

In the beginning the Universe was created. This has made a lot of people very angry and has been widely regarded as a bad move.

Douglas Adams


Typeset in Trocchi and Trocchi Bold Sans Serif.