undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

git add -i: Remove unused variables

Browse Source 
Signed-off-by: Jean-Luc Herren <jlh@gmx.ch>
Signed-off-by: Lars Hjemli <hjemli@gmail.com>
Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
This commit is contained in:
Jean-Luc Herren 2007-10-09 21:34:17 +02:00 committed by Shawn O. Pearce
parent 7288ed8ebd
commit 7b40a4552a
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
git-add--interactive.perl
View File

@ -374,9 +374,8 @@ sub split_hunk {
# it can be split, but we would need to take care of # it can be split, but we would need to take care of
# overlaps later. # overlaps later.
my ($o_ofs, $o_cnt, $n_ofs, $n_cnt) = parse_hunk_header($text->[0]); my ($o_ofs, undef, $n_ofs) = parse_hunk_header($text->[0]);
my $hunk_start = 1; my $hunk_start = 1;
my $next_hunk_start;
OUTER: OUTER:
while (1) { while (1) {
@ -443,8 +442,8 @@ sub split_hunk {
for my $hunk (@split) { for my $hunk (@split) {
$o_ofs = $hunk->{OLD}; $o_ofs = $hunk->{OLD};
$n_ofs = $hunk->{NEW}; $n_ofs = $hunk->{NEW};
$o_cnt = $hunk->{OCNT}; my $o_cnt = $hunk->{OCNT};
$n_cnt = $hunk->{NCNT}; my $n_cnt = $hunk->{NCNT};
my $head = ("@@ -$o_ofs" . my $head = ("@@ -$o_ofs" .
(($o_cnt != 1) ? ",$o_cnt" : '') . (($o_cnt != 1) ? ",$o_cnt" : '') .
@ -459,7 +458,7 @@ sub split_hunk {
sub find_last_o_ctx { sub find_last_o_ctx {
my ($it) = @_; my ($it) = @_;
my $text = $it->{TEXT}; my $text = $it->{TEXT};
my ($o_ofs, $o_cnt, $n_ofs, $n_cnt) = parse_hunk_header($text->[0]); my ($o_ofs, $o_cnt) = parse_hunk_header($text->[0]);
my $i = @{$text}; my $i = @{$text};
my $last_o_ctx = $o_ofs + $o_cnt; my $last_o_ctx = $o_ofs + $o_cnt;
while (0 < --$i) { while (0 < --$i) {
@ -531,8 +530,7 @@ sub coalesce_overlapping_hunks {
for (grep { $_->{USE} } @in) { for (grep { $_->{USE} } @in) {
my $text = $_->{TEXT}; my $text = $_->{TEXT};
my ($o_ofs, $o_cnt, $n_ofs, $n_cnt) = my ($o_ofs) = parse_hunk_header($text->[0]);
parse_hunk_header($text->[0]);
if (defined $last_o_ctx && if (defined $last_o_ctx &&
$o_ofs <= $last_o_ctx) { $o_ofs <= $last_o_ctx) {
merge_hunk($out[-1], $_); merge_hunk($out[-1], $_);
@ -699,7 +697,7 @@ sub patch_update_cmd {
@hunk = coalesce_overlapping_hunks(@hunk); @hunk = coalesce_overlapping_hunks(@hunk);
my ($o_lofs, $n_lofs) = (0, 0); my $n_lofs = 0;
my @result = (); my @result = ();
for (@hunk) { for (@hunk) {
my $text = $_->{TEXT}; my $text = $_->{TEXT};
@ -806,8 +804,6 @@ sub main_loop {
} }
} }
my @z;
refresh(); refresh();
status_cmd(); status_cmd();
main_loop(); main_loop();