Werner's Miscellanea
Sign in or create your account | Project List | Help
Werner's Miscellanea Commit Details
| Date: | 2013-09-29 02:15:56 (9 years 11 months ago) |
|---|---|
| Author: | Werner Almesberger |
| Commit: | a2a7293ef6e59543373fd8011016ace41fd2b8a9 |
| Message: | bin/authors: only include files that still exist |
| Files: |
bin/authors (2 diffs) |
Change Details
| bin/authors | ||
|---|---|---|
| 13 | 13 | |
| 14 | 14 | $WIDTH = 79; |
| 15 | 15 | |
| 16 | open(LOG, "git ls-files |") || die "popen ls-files"; | |
| 17 | while (<LOG>) { | |
| 18 | chop; | |
| 19 | $e{$_} = 1; | |
| 20 | } | |
| 21 | close LOG; | |
| 22 | ||
| 16 | 23 | open(LOG, "git log --format='%an <%ae>' --name-only --no-merges |") || |
| 17 | 24 | die "popen log"; |
| 18 | 25 | while (<LOG>) { |
| ... | ... | |
| 22 | 29 | undef $last; |
| 23 | 30 | next; |
| 24 | 31 | } |
| 25 | if (defined $last) { | |
| 32 | if (defined $e{$last}) { | |
| 26 | 33 | push @{ $f{$last} }, $a; |
| 27 | 34 | $a{$a} = 1; |
| 28 | 35 | } |
| 29 | 36 | $last = $_; |
| 30 | 37 | } |
| 31 | if (defined $last) { | |
| 38 | if (defined $e{$last}) { | |
| 32 | 39 | push @{ $f{$last} }, $a; |
| 33 | 40 | $a{$a} = 1; |
| 34 | 41 | } |
Branches:
master
