diff options
author | Mathias Preiner <mathias.preiner@gmail.com> | 2017-07-07 09:40:08 -0700 |
---|---|---|
committer | Mathias Preiner <mathias.preiner@gmail.com> | 2017-07-07 09:40:08 -0700 |
commit | 7231e62ee2d620751d43ea72eb3e390ac6ccfed9 (patch) | |
tree | 711a9727c884eea5e8218c26437541bf78874ef5 | |
parent | 6b7841227b0a4bdce72c848b170aac8230cf4cba (diff) |
Escape left brace in regex in update-copyright script.
-rwxr-xr-x | contrib/update-copyright.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/update-copyright.pl b/contrib/update-copyright.pl index ba0b4313d..99472ff94 100755 --- a/contrib/update-copyright.pl +++ b/contrib/update-copyright.pl @@ -139,7 +139,7 @@ sub handleFile { my $authors = <$AUTHOR>; chomp $authors; close $AUTHOR; $_ = <$IN>; - if(m,^(%{)?/\*(\*| )\*\*\*,) { + if(m,^(%\{)?/\*(\*| )\*\*\*,) { print "updating\n"; if($file =~ /\.(y|yy|ypp|Y)$/) { print $OUT "%{/******************* */\n"; @@ -201,7 +201,7 @@ $line"; if($file =~ /\.(y|yy|ypp|Y)$/) { while(my $line = <$IN>) { chomp $line; - if($line =~ '\s*%{(.*)') { + if($line =~ '\s*%\{(.*)') { print $OUT "$1\n"; last; } |