index 0057f865886753afb9493a2e82b11fe14aa91529..dc3038091dd7db7dd4bb96cf8832df789b4d127f 100755 (executable)
#!/usr/bin/perl -w
#!/usr/bin/perl -w
-
use strict;
sub run_cmd_pipe {
use strict;
sub run_cmd_pipe {
HEADER => $status_head, },
@mods);
if (@update) {
HEADER => $status_head, },
@mods);
if (@update) {
- system(qw(git update-index --add --),
+ system(qw(git update-index --add --remove --),
map { $_->{VALUE} } @update);
say_n_paths('updated', @update);
}
map { $_->{VALUE} } @update);
say_n_paths('updated', @update);
}