diff options
author | Christopher Faylor <me@cgf.cx> | 2013-01-21 08:30:27 +0400 |
---|---|---|
committer | Christopher Faylor <me@cgf.cx> | 2013-01-21 08:30:27 +0400 |
commit | d89e61f354d50020fd4cb1fbfb37bf0864ad5ec1 (patch) | |
tree | d65734a83f51f9232392d06768bd57b5a1cc544d /winsup/cygwin/update-copyright | |
parent | eb0876b22f1ea035959416cb1780236df011222a (diff) |
* update-copyright (update_maybe): Accommodate perl-style copyright comments.
Diffstat (limited to 'winsup/cygwin/update-copyright')
-rwxr-xr-x | winsup/cygwin/update-copyright | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/winsup/cygwin/update-copyright b/winsup/cygwin/update-copyright index 47ab14f32..112592eb3 100755 --- a/winsup/cygwin/update-copyright +++ b/winsup/cygwin/update-copyright @@ -54,7 +54,7 @@ sub update_maybe($%) { while (<>) { if ($copyright) { push @file, $_; - } elsif (/^\s*Copyright/o) { + } elsif (/^[#\s]*Copyright/o) { $copyright = $_; $copyright .= scalar <> while $copyright =~ /,\s*$/o; if ($copyright !~ /Red Hat, Inc\.\n/o) { @@ -64,7 +64,7 @@ sub update_maybe($%) { for my $date ($copyright =~ /(\d+)/g) { $dates{$date} = 1; } - my $indent = ($copyright =~ /\A(\s*)/o)[0]; + my $indent = ($copyright =~ /\A([#\s]*)/o)[0]; my $newcopyright = addwrap $indent, $indent . 'Copyright ' . (join ', ', sort {$a <=> $b} sort keys %dates) . |