abstraction layer for VCS specific functions

CVS version numbers

Perl/Local/VCS.pm: INITIAL -> 1.1

1 files changed, 16 insertions, 0 deletions

diff --git a/Perl/Local/VCS.pm b/Perl/Local/VCS.pm
new file mode 100644
index 00000000000..05a5400a972
--- /dev/null
+++ b/Perl/Local/VCS.pm
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+package VCS;
+use vars qw(@ISA);
+
+if (-d 'CVS') {
+	# CVS directory is in every subdirectory, so this is a save call
+	require Local::VCS_CVS;
+	@ISA = qw(Local::VCS_CVS);
+} else {
+	# we don't want to move up to look for a .git directory ...
+	require Local::VCS_Git;
+	@ISA = qw(Local::VCS_Git);
+}
+
+42;