7 lines
176 B
Perl
7 lines
176 B
Perl
|
#!/usr/bin/env perl
|
||
|
|
|
||
|
|
# :-)
|
||
|
|
|
||
|
|
/(\d{4}).*?_(.+)/&&\$a{$2}->{$1}for`git log --pretty=format:%aD_%an`;
|
||
|
|
print"Copyright (C) ".join(", ",sort keys %{$a{$_}})." $_.\n"for sort keys %a
|