view release on metacpan or  search on metacpan

bin/snerp-projector  view on Meta::CPAN

my $analysis = SVN::Analysis->new(
	db_file_name  => $db_file_name,
	verbose       => $verbose,
);

# Acquire the projects.
my $projects = YAML::LoadFile($map_file_name);

unless (scalar keys %$projects) {
	print "No projects in $map_file_name.  I guess we're done.\n";
}

# Set up the target projects.

mkdir $new_base or die "mkdir $new_base failed: $!";

my @project_names = sort keys %$projects;

foreach (@project_names) {
	my $clone_path = "$new_base/$_";

lib/SVN/Dump/Replayer/Git.pm  view on Meta::CPAN

	my $message = $revision->message();
	$message = "(no message)" unless defined $message and length $message;

	open my $tmp, ">", $git_commit_message_file or confess $!;
	print $tmp $message or confess $!;
	close $tmp or confess $!;

	$self->git_env_setup($revision);

	# Some changes seem to alter no files.  We can detect whether a
	# commit is needed using git-status.  Otherwise, if we guess wrong,
	# git-commit will fail if there's nothing to commit.  We bother
	# checking git-commit because we do want to catch errors.

	# TODO - git-status is slow after a while.  Can we do something
	# smart to avoid it in all cases?
	if (
		!$needs_status or
		$self->do_sans_die("git status >/dev/null 2>/dev/null")
	) {
		$self->do_or_die(