Test that 'rgit gui' acts as Once

[perl/modules/rgit.git] / bin / rgit

diff --git a/bin/rgit b/bin/rgit
index e6bc9100cbb01edd930de2373521b6b353d5547c..2efd7b8ea1d129d8f566570a7ff9f951037c854f 100755 (executable)
--- a/bin/rgit
+++ b/bin/rgit
@@ -16,9 +16,8 @@ our $VERSION = '0.03';
 BEGIN {
  if (-t && eval { use Term::ReadKey; 1 }) {
   *policy = sub {
-   my ($cmd, $conf, $repo, $status) = @_;
+   my ($cmd, $conf, $repo, $status, $signal) = @_;
    return NEXT unless $status;
-   print STDERR "git returned $status\n";
    print STDERR "[a]bort, [i]gnore, [I]gnore all, [r]etry, open [s]hell ?";
    ReadMode 4;
    my $key = ReadKey 0;
@@ -38,9 +37,8 @@ BEGIN {
   };
  } else {
   *policy = sub {
-   my ($cmd, $conf, $repo, $status) = @_;
+   my ($cmd, $conf, $repo, $status, $signal) = @_;
    return NEXT unless $status;
-   print STDERR "git returned $status, aborting\n";
    return LAST;
   };
  }
@@ -152,7 +150,7 @@ Add a remote to all repositories in "/foo/bar" to their bare counterpart in C<qu
 
 =head1 DEPENDENCIES
 
-The core modules L<Carp>, L<Cwd>, L<Exporter>, L<File::Find>, L<File::Spec::Functions> and L<List::Util>.
+The core modules L<Carp>, L<Cwd>, L<Exporter>, L<File::Find>, L<File::Spec::Functions>, L<List::Util> and L<POSIX>.
 
 L<Object::Tiny>.