Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
-sub get_head () { return git_rev_parse qw(HEAD); }
+sub get_head () {
+ git_check_unmodified();
+ return git_rev_parse qw(HEAD);
+}
sub update_head ($$$) {
my ($old, $new, $mrest) = @_;
sub update_head ($$$) {
my ($old, $new, $mrest) = @_;
}
sub cmd_new_upstream_v0 () {
}
sub cmd_new_upstream_v0 () {
- # tree should be clean and this is not checked
# automatically and unconditionally launders before rebasing
# if rebase --abort is used, laundering has still been done
# automatically and unconditionally launders before rebasing
# if rebase --abort is used, laundering has still been done