- : ( /^-([IKV]+)$/ ? do { $opts{$_} = 1 for split //, $1; () }
- : do { $cmd = $_ unless /^-/; $_ } )
+ : ( /^-([DIKV]+)$/ ? do { $opts{$_} = 1 for split //, $1; () }
+ : do { $cmd = $_ unless /^-/; $_ } )
sub policy_default {
my ($cmd, $conf, $repo, $status, $signal) = @_;
sub policy_default {
my ($cmd, $conf, $repo, $status, $signal) = @_;
- print STDERR "[a]bort, [i]gnore, [I]gnore all, [r]etry, open [s]hell ?";
+ $conf->warn("[a]bort, [i]gnore, [I]gnore all, [r]etry, open [s]hell ?");
- print STDERR 'Okay, ', $code->[1], "\n";
+ $conf->info('Okay, ', $code->[1], "\n");