X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=archive_analysis;h=2294a4b6ce065c80ef35bc192648ecf84753a54c;hb=1886c7247cb16ed68a78cd5550b152689a465999;hp=54e53c6ffe3ce237afaf49060f274177322ce111;hpb=da54a7d6e81ed5fb92f01466577a624edbc26b67;p=bin.git

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();