PlaneteCasio
/
libc
1
0
Fork 0
Code Issues 6 Pull Requests Releases Wiki Activity

* update-copyright (update_maybe): Accommodate perl-style copyright comments.

This commit is contained in:
Christopher Faylor 2013-01-21 04:30:27 +00:00
parent eb0876b22f
commit d89e61f354
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
winsup/cygwin/ChangeLog
View File

@ -1,3 +1,8 @@
2013-01-20 Christopher Faylor <me.cygwin2013@cgf.cx>
* update-copyright (update_maybe): Accommodate perl-style copyright
comments.
2013-01-20 Christopher Faylor <me.cygwin2013@cgf.cx>
* update-copyright: Silently skip nonexistent files. Display filename

4
winsup/cygwin/update-copyright
View File

@ -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) .