+
+ 1;
+}
+
+exit;
+
+sub check_git_status
+{
+ open(IN, '-|', 'git status') or die $!;
+ my $status = join('', <IN>);
+ close IN;
+ my $is_clean = $status =~ /\nnothing to commit \(working directory clean\)/;
+ my($starting_branch) = $status =~ /^# On branch (.+)\n/;
+ ($status, $is_clean, $starting_branch);
+}
+
+sub usage
+{
+ die <<EOT;
+Usage: patch-update [OPTIONS]
+
+--gen[=DIR] Include generated files. Optional dest DIR overrides "patches".
+--skip-check Skip the check that ensures starting with a clean branch.
+EOT