+ debug => $opts{D} ? INFO : WARN,
+);
+
+print STDOUT "rgit $VERSION\n" if $opts{V};
+
+exit $ar->run;
+
+sub policy_default {
+ my ($cmd, $conf, $repo, $status, $signal) = @_;
+ return NEXT unless $status;
+ return LAST;
+}
+
+sub policy_keep { NEXT }
+
+sub policy_interactive {
+ my ($cmd, $conf, $repo, $status, $signal) = @_;
+ return NEXT unless $status;
+ my %codes = (
+ 'a' => [ LAST, 'aborting' ],
+ 'i' => [ NEXT, 'ignoring' ],
+ 'I' => [ NEXT | SAVE, 'ignoring all' ],
+ 'r' => [ REDO, 'retrying' ],
+ );
+ my $int = { GetControlChars() }->{INTERRUPT};
+ while (1) {
+ $conf->warn("[a]bort, [i]gnore, [I]gnore all, [r]etry, open [s]hell ?");
+ ReadMode(4);
+ my $key = ReadKey(0);
+ ReadMode(1);
+ print STDERR "\n";
+ next unless defined $key;
+ if ($key eq $int) {
+ $conf->warn("Interrupted, aborting\n");
+ return LAST;
+ } elsif ($key eq 's') {
+ if (defined $shell) {
+ $conf->info('Opening shell in ', $repo->work, "\n");
+ my $cwd = cwd;
+ $repo->chdir;
+ system { $shell } $shell;
+ chdir $cwd;
+ } else {
+ $conf->err("Couldn't find any shell\n");
+ }
+ } elsif (exists $codes{$key}) {
+ my $code = $codes{$key};
+ $conf->info('Okay, ', $code->[1], "\n");
+ return $code->[0];
+ }
+ }
+}