}
fetch_from_archive() or die;
runcmd @git, qw(reset --hard), lrref();
- print "ready for work in $dstdir\n";
+ print "dgit ok: ready for work in $dstdir\n";
}
sub fetch () {
git_fetch_us();
}
fetch_from_archive() or die;
+ print "dgit ok: fetched into ".lrref()."\n";
}
sub pull () {
fetch();
runcmd_ordryrun @git, qw(merge -m),"Merge from $suite [dgit]",
lrref();
+ print "dgit ok: fetched to ".lrref()." and merged into HEAD\n";
}
sub dopush () {
my $host = access_cfg('upload-host');
my @hostarg = defined($host) ? ($host,) : ();
runcmd_ordryrun @dput, @hostarg, $changesfile;
+ print "dgit ok: pushed and uploaded $dsc->{Version}\n";
}
sub cmd_clone {