view release on metacpan or  search on metacpan

sbin/foundry-lib/VCP/Dest/svn.pm  view on Meta::CPAN

    $self->{SVN_EDITOR}->close_edit($self->{SVN_POOL});
    undef $self->{SVN_PATHS};
return;
    if (@svnrev) {
	my $time = iso8601format($revs->[0]->time);
	$time =~ s/\s/T/;
	$time =~ s/Z/\.00000Z/;
	my $latest = 0;
	for (@svnrev) {
	    $self->svn(['propset', 'svn:date', '--revprop', '-r', $_, $time]);
	    $self->svn(['propset', 'svn:author', '--revprop', '-r', $_, $revs->[0]->user_id]);
	    $latest = $_ if $latest < $_;
	}
	$self->rev_map->set([$_->source_repo_id, $_->id], $latest)
	    for @$revs;
    }
    else {
	# we can't do force commit from svn commandline
	# so just set revmap to its previous
	for (@$revs) {
	    $self->rev_map->set([$_->source_repo_id, $_->id],