From 38fda44f87ef0cb89c58db1f3054e8bbffd37a4b Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 14 May 2013 16:58:29 -0700
Subject: [PATCH] change how determine_vcs works slightly

---
 archive_analysis | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/archive_analysis b/archive_analysis
index 54e53c6..2294a4b 100755
--- a/archive_analysis
+++ b/archive_analysis
@@ -93,7 +93,7 @@ for my $file (@ARGV) {
     if (not defined $vcs) {
         fail("Unable to determine which VCS this is");
     }
-    my $revision = find_vcs_revision($vcs,$file);
+    my $revision = find_vcs_revision($file,$vcs);
     if (not defined $revision) {
         fail("Unable to determine which revision this is");
     }
@@ -139,7 +139,10 @@ sub determine_vcs {
 }
 
 sub find_vcs_revision{
-    my ($vcs,$file) = @_;
+    my ($file,$vcs) = @_;
+    if (not defined $vcs) {
+        $vcs = determine_vcs($file);
+    }
 
     if ($vcs eq 'git') {
         my $old_dir = getcwd();
-- 
2.39.2