dgit-badcommit-fixup: Break out filter_updates

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/dgit-badcommit-fixup b/dgit-badcommit-fixup
index 6d6a705ec8a235c84f31bea89df63ea1f81349c6..46637899d91920f234cb78bb27b4f7eb58af912b 100755 (executable)
--- a/dgit-badcommit-fixup
+++ b/dgit-badcommit-fixup
@@ -104,6 +104,12 @@ sub rewrite_commit ($) {
     return $newobj;
 }
 
     return $newobj;
 }
 

+our @updates;
+
+sub filter_updates () {
+    @updates = grep { $_->[1] ne $_->[2] } @updates;
+}
+

 sub rewrite_tag ($) {
     my ($obj) = @_;
     $_ = getobj $obj, 'tag';
 sub rewrite_tag ($) {
     my ($obj) = @_;
     $_ = getobj $obj, 'tag';


@@ -129,8 +135,6 @@ die "$? $!" if $?;
 
 chomp $refs;
 
 
 chomp $refs;
 

-our @updates;
-

 foreach my $rline (split /\n/, $refs) {
     my ($obj, $type, $refname) = 
        $rline =~ m/^(\w+)\s+(\w+)\s+(\S.*)/
 foreach my $rline (split /\n/, $refs) {
     my ($obj, $type, $refname) = 
        $rline =~ m/^(\w+)\s+(\w+)\s+(\S.*)/


@@ -147,7 +151,7 @@ foreach my $rline (split /\n/, $refs) {
     push @updates, [ $refname, $obj, $rewrite ];
 }
 
     push @updates, [ $refname, $obj, $rewrite ];
 }
 

-@updates = grep { $_->[1] ne $_->[2] } @updates;
+filter_updates();

 
 #print Dumper(\@updates);
 
 
 #print Dumper(\@updates);