From a12eef6ecf7d5d1164cd66047913ba6139fbaccf Mon Sep 17 00:00:00 2001
From: Jeff Squyres <jsquyres@cisco.com>
Date: Fri, 3 Oct 2014 08:52:48 -0700
Subject: [PATCH] find-copyrights.pl: updates for git

And minor whitespace cleanup.
---
 contrib/dist/find-copyrights.pl | 17 ++++++-----------
 1 file changed, 6 insertions(+), 11 deletions(-)

diff --git a/contrib/dist/find-copyrights.pl b/contrib/dist/find-copyrights.pl
index 07d9262dd0..112d75b4a4 100755
--- a/contrib/dist/find-copyrights.pl
+++ b/contrib/dist/find-copyrights.pl
@@ -15,24 +15,19 @@ my $copyrights;
 
 # Ensure that we're in the top of an SVN or hg directory.
 
-my $good = 0;
-$good = 1
-    if (-d ".hg");
-$good = 1
-    if (-d ".svn" && -f "README.WINDOWS.txt" && -f "VERSION");
 die "Must be in root of OMPI tree"
-    if (!$good);
+    if (! -d ".git");
 
 # Find all interesting files (skip the top-level LICENSE file)
 my @files;
 &File::Find::find(
     sub {
         push(@files, $File::Find::name)
-            if ($_ ne "." && $_ ne ".." && 
+            if ($_ ne "." && $_ ne ".." &&
                 !($_ eq "LICENSE" && $File::Find::dir eq ".") &&
                 $_ !~ /~$/ && $_ !~ /\.bak$/ && $_ !~ /\.orig$/ &&
                 -f $_ && ! -l $_ &&
-                $File::Find::dir !~ /\.svn/ &&
+                $File::Find::dir !~ /\.git/ &&
                 $File::Find::dir !~ /\.libs/ &&
                 $File::Find::dir !~ /\.deps/);
     },
@@ -66,7 +61,7 @@ sub save {
         }
         return;
     }
-    
+
     # Save a single year
     if (!exists($copyrights->{$core}->{$org}->{$year}->{$file})) {
         $copyrights->{$core}->{$org}->{$year}->{$file} = 1;
@@ -104,7 +99,7 @@ foreach my $f (@files) {
             $current = $2;
         }
         # Beginning of something else
-        elsif (defined($current) && 
+        elsif (defined($current) &&
                ($line =~ /\s*\*\s*$/ ||
                 $line =~ /^\s*$/ ||
                 $line =~ /^\s*\#\s*$/)) {
@@ -149,7 +144,7 @@ print "Found copyrights:\n";
 foreach my $c (qw/1 0/) {
     print "========= Core: $c\n";
     foreach my $org (sort(keys(%{$copyrights->{$c}}))) {
-        print "$org: " . join(",", 
+        print "$org: " . join(",",
                              sort(keys(%{$copyrights->{$c}->{$org}}))) . "\n";
     }
 }