initial pass at a git module

scripts/Dpkg/Source/VCS/git.pm

@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+# git support for dpkg-source
+use strict;
+use warnings;
+
+use Dpkg;
+use Dpkg::Gettext;
+
+push (@INC, $dpkglibdir);
+require 'controllib.pl';
+
+sub populate_tarball {
+	my $srcdir=shift;
+	my $tardir=shift;
+
+	# TODO check for uncommitted files
+	system("cp -a $srcdir/.git $tardir");
+	$? && subprocerr("cp -a $srcdir/.git $tardir");
+}
+
+sub initialize_repo {
+	my $srcdir=shift;
+	
+	# TODO disable git hooks
+	# TODO git-fsck?
+	# XXX git should be made to run in quiet mode here, but
+	# lacks a good way to do it. Bug filed.
+	system("cd $srcdir && git-reset --hard");
+	$? && subprocerr("cd $srcdir && git-reset --hard");
+}