Merge branch 'sb/clean'

diff --git a/git-add--interactive.perl b/git-add--interactive.perl
index 0317ad9127b374a9ded536e6fb2c825a3b13828c..fb1e92a7664f77aa5ca4ca30b4711bafaf155466 100755 (executable)
--- a/git-add--interactive.perl
+++ b/git-add--interactive.perl
@@ -564,10 +564,12 @@ sub patch_update_cmd {
                                     IMMEDIATE => 1,
                                     HEADER => $status_head, },
                                   @mods);
-       return if (!$it);
+       patch_update_file($it->{VALUE}) if ($it);
+}
 
+sub patch_update_file {
        my ($ix, $num);
-       my $path = $it->{VALUE};
+       my $path = shift;
        my ($head, @hunk) = parse_diff($path);
        for (@{$head->{TEXT}}) {
                print;