|
15 | 15 |
|
16 | 16 | # Ensure that we're in the top of an SVN or hg directory.
|
17 | 17 |
|
18 |
| -my $good = 0; |
19 |
| -$good = 1 |
20 |
| - if (-d ".hg"); |
21 |
| -$good = 1 |
22 |
| - if (-d ".svn" && -f "README.WINDOWS.txt" && -f "VERSION"); |
23 | 18 | die "Must be in root of OMPI tree"
|
24 |
| - if (!$good); |
| 19 | + if (! -d ".git"); |
25 | 20 |
|
26 | 21 | # Find all interesting files (skip the top-level LICENSE file)
|
27 | 22 | my @files;
|
28 | 23 | &File::Find::find(
|
29 | 24 | sub {
|
30 | 25 | push(@files, $File::Find::name)
|
31 |
| - if ($_ ne "." && $_ ne ".." && |
| 26 | + if ($_ ne "." && $_ ne ".." && |
32 | 27 | !($_ eq "LICENSE" && $File::Find::dir eq ".") &&
|
33 | 28 | $_ !~ /~$/ && $_ !~ /\.bak$/ && $_ !~ /\.orig$/ &&
|
34 | 29 | -f $_ && ! -l $_ &&
|
35 |
| - $File::Find::dir !~ /\.svn/ && |
| 30 | + $File::Find::dir !~ /\.git/ && |
36 | 31 | $File::Find::dir !~ /\.libs/ &&
|
37 | 32 | $File::Find::dir !~ /\.deps/);
|
38 | 33 | },
|
@@ -66,7 +61,7 @@ sub save {
|
66 | 61 | }
|
67 | 62 | return;
|
68 | 63 | }
|
69 |
| - |
| 64 | + |
70 | 65 | # Save a single year
|
71 | 66 | if (!exists($copyrights->{$core}->{$org}->{$year}->{$file})) {
|
72 | 67 | $copyrights->{$core}->{$org}->{$year}->{$file} = 1;
|
@@ -104,7 +99,7 @@ sub save {
|
104 | 99 | $current = $2;
|
105 | 100 | }
|
106 | 101 | # Beginning of something else
|
107 |
| - elsif (defined($current) && |
| 102 | + elsif (defined($current) && |
108 | 103 | ($line =~ /\s*\*\s*$/ ||
|
109 | 104 | $line =~ /^\s*$/ ||
|
110 | 105 | $line =~ /^\s*\#\s*$/)) {
|
@@ -149,7 +144,7 @@ sub save {
|
149 | 144 | foreach my $c (qw/1 0/) {
|
150 | 145 | print "========= Core: $c\n";
|
151 | 146 | foreach my $org (sort(keys(%{$copyrights->{$c}}))) {
|
152 |
| - print "$org: " . join(",", |
| 147 | + print "$org: " . join(",", |
153 | 148 | sort(keys(%{$copyrights->{$c}->{$org}}))) . "\n";
|
154 | 149 | }
|
155 | 150 | }
|
|
0 commit comments