git-debrebase: WIP FOUND

diff --git a/git-debrebase b/git-debrebase
index b3b5ea691e37cee8775134adefa4818ac4957996..e3835e3d0d796442dc1bb9ba849e0d8b66fb80a2 100755 (executable)
--- a/git-debrebase
+++ b/git-debrebase
@@ -316,7 +316,7 @@ sub classify ($) {
 }
 
 sub walk ($;$$);
 }
 
 sub walk ($;$$);

-sub walk {
+sub walk ($;$$) {

     my ($input,
        $nogenerate,$report) = @_;
     # => ($tip, $breakwater_tip)
     my ($input,
        $nogenerate,$report) = @_;
     # => ($tip, $breakwater_tip)


@@ -573,7 +573,7 @@ sub walk {
 
 sub get_head () { return git_rev_parse qw(HEAD); }
 
 
 sub get_head () { return git_rev_parse qw(HEAD); }
 

-sub update_head ($$) {
+sub update_head ($$$) {

     my ($old, $new, $mrest) = @_;
     runcmd @git, qw(update-ref -m), "git-debrebase $mrest", $new, $old;
 }
     my ($old, $new, $mrest) = @_;
     runcmd @git, qw(update-ref -m), "git-debrebase $mrest", $new, $old;
 }


@@ -602,7 +602,7 @@ sub cmd_analyse () {
     STDOUT->error and die $!;
 }
 
     STDOUT->error and die $!;
 }
 

-my $toplevel = runcmd @git, qw(rev-parse --show-toplevel);
+my $toplevel = cmdoutput @git, qw(rev-parse --show-toplevel);

 chdir $toplevel or die "chdir $toplevel: $!";
 
 my $cmd = shift @ARGV;
 chdir $toplevel or die "chdir $toplevel: $!";
 
 my $cmd = shift @ARGV;