+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] ";
+ $_ = <STDIN>;
+ exit 1 unless /^y/i;
+ system "cd patches && git checkout '$master_branch'";
+ }
+}
+