X-Git-Url: https://mattmccutchen.net/rsync/rsync.git/blobdiff_plain/2b2a47383124f9b62834778f61d2ccb1e55f6a0d..a01e3b490eb36ccf9e704840e1b6683dab867550:/packaging/release-rsync diff --git a/packaging/release-rsync b/packaging/release-rsync index ddd8bedd..939e5b9b 100755 --- a/packaging/release-rsync +++ b/packaging/release-rsync @@ -61,30 +61,8 @@ die "There is no .git dir in the current directory.\n" unless -d '.git'; die "'a' must not exist in the current directory.\n" if -e 'a'; die "'b' must not exist in the current directory.\n" if -e 'b'; -my $status = `git status`; -die "The checkout is not clean:\n", $status unless $status =~ /\nnothing to commit \(working directory clean\)/; -my($cur_branch) = $status =~ /^# On branch (.+)\n/; -if ($cur_branch ne $master_branch) { - print "The checkout is not on the $master_branch branch.\n"; - exit 1 if $master_branch ne 'master'; - print "Do you want to release branch $cur_branch? [n] "; - $_ = ; - exit 1 unless /^y/i; - $master_branch = $cur_branch; -} - -if (-d 'patches/.git') { - $status = `cd patches && git status`; - die "The *patches* checkout is not clean:\n", $status unless $status =~ /\nnothing to commit \(working directory clean\)/; - ($cur_branch) = $status =~ /^# On branch (.+)\n/; - if ($cur_branch ne $master_branch) { - print "The *patches* checkout is on branch $cur_branch, not branch $master_branch.\n"; - print "Do you want to change it to branch $master_branch? [n] "; - $_ = ; - exit 1 unless /^y/i; - system "cd patches && git checkout '$master_branch'"; - } -} +require 'packaging/git-status.pl'; +check_git_state($master_branch, 1, 1); my $confversion; open(IN, '<', 'configure.in') or die $!; @@ -285,7 +263,7 @@ print $break, <