Make git the deafult fallback if CVS is not detected

CVS version numbers

Perl/Local/VCS.pm: 1.2 -> 1.3

1 files changed, 4 insertions, 9 deletions

diff --git a/Perl/Local/VCS.pm b/Perl/Local/VCS.pm
index e45c00ec06f..59cd609bef1 100644
--- a/Perl/Local/VCS.pm
+++ b/Perl/Local/VCS.pm
@@ -17,11 +17,11 @@ use warnings;
 our @ISA = qw(Exporter);
 
 # this is the import routine that is called when this  is "used" by a program
-# We implement it ourselves here to export the symbols from the 
+# We implement it ourselves here to export the symbols from the
 # correct module to the main program
 sub import
 {
-	# the first argument is "Local::VCS";  
+	# the first argument is "Local::VCS";
 	# shift it away, we'll specify it manually below
 	shift @_;
 
@@ -31,17 +31,12 @@ sub import
 		require Local::VCS_CVS;
 		Local::VCS_CVS->export_to_level(1, 'Local::VCS_CVS', @_);
 	}
-	# TODO: this probably won't suffice, as git only puts a .git directory
-	# in the top directory
-	elsif ( -d '.git' )
+	# fall back to git
+	else
 	{
 		require Local::VCS_git;
 		Local::VCS_git->export_to_level(1, 'Local::VCS_git', @_);
 	}
-	else
-	{
-		croak "No VCS found --- only CVS and git are supported\n";
-	}
 }
 
 42;