view release on metacpan or  search on metacpan

bin/snerp-projector  view on Meta::CPAN

44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
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

647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
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(