dpkg/scripts/Dpkg/Source/VCS/git.pm

#!/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");
}