kernel
/
git
mirror of https://git.kernel.org/pub/scm/git/git.git
1
0
Fork 0
Code Releases Activity

git-svn: do not let Git.pm warn if we prematurely close pipes 

This mainly quiets down warnings when running git svn log.

Signed-off-by: Eric Wong <normalperson@yhbt.net>
Signed-off-by: Junio C Hamano <junkio@cox.net>
maint
Eric Wong 2007-02-01 13:12:26 -08:00 committed by Junio C Hamano
parent 1e5db3075a
commit 22600a2515
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
git-svn.perl
View File

@ -681,7 +681,7 @@ sub show_log {
process_commit($_, $r_min, $r_max) foreach reverse @k; process_commit($_, $r_min, $r_max) foreach reverse @k;
} }
out: out:
eval { command_close_pipe($log) }; close $log;
print '-' x72,"\n" unless $_incremental || $_oneline; print '-' x72,"\n" unless $_incremental || $_oneline;
} }


@ -1475,7 +1475,7 @@ sub map_tree_joins {
$seen{$commit} = 1; $seen{$commit} = 1;
} }
} }
eval { command_close_pipe($pipe) }; close $pipe;
} }
} }


@ -1669,7 +1669,7 @@ sub write_grafts {
last unless /^\S/; last unless /^\S/;
} }
} }
eval { command_close_pipe($ch) }; # breaking the pipe close $ch; # breaking the pipe


# if real parents are the only ones in the grafts, drop it # if real parents are the only ones in the grafts, drop it
next if join(' ',sort keys %$p) eq join(' ',sort keys %x); next if join(' ',sort keys %$p) eq join(' ',sort keys %x);
@ -1766,7 +1766,7 @@ sub get_commit_time {
} elsif ($tz =~ s/^\-//) { } elsif ($tz =~ s/^\-//) {
$s -= tz_to_s_offset($tz); $s -= tz_to_s_offset($tz);
} }
eval { command_close_pipe($fh) }; close $fh;
return $s; return $s;
} }
die "Can't get commit time for commit: $cmt\n"; die "Can't get commit time for commit: $cmt\n";
@ -2846,7 +2846,7 @@ sub rmdirs {
delete $rm->{join '/', @dn}; delete $rm->{join '/', @dn};
} }
unless (%$rm) { unless (%$rm) {
eval { command_close_pipe($fh) }; close $fh;
return; return;
} }
} }