diff --git a/git-svn.perl b/git-svn.perl
index 68156fc8a5d3e886fae61dae531f647e35b4899d..d792a62d7ca400145d57189b5ca8af97978fef4d 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
process_commit($_, $r_min, $r_max) foreach reverse @k;
}
out:
process_commit($_, $r_min, $r_max) foreach reverse @k;
}
out:
- eval { command_close_pipe($log) };
+ close $log;
print '-' x72,"\n" unless $_incremental || $_oneline;
}
print '-' x72,"\n" unless $_incremental || $_oneline;
}
$seen{$commit} = 1;
}
}
$seen{$commit} = 1;
}
}
- eval { command_close_pipe($pipe) };
+ close $pipe;
}
}
}
}
@$v = @tmp if @tmp;
} else {
chomp(my $tmp = `$arg --get svn.$key`);
@$v = @tmp if @tmp;
} else {
chomp(my $tmp = `$arg --get svn.$key`);
- if ($tmp && !($arg =~ / --bool / && $tmp eq 'false')) {
+ if ($tmp && !($arg =~ / --bool/ && $tmp eq 'false')) {
$$v = $tmp;
}
}
$$v = $tmp;
}
}
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
next if join(' ',sort keys %$p) eq join(' ',sort keys %x);
# if real parents are the only ones in the grafts, drop it
next if join(' ',sort keys %$p) eq join(' ',sort keys %x);
} elsif ($tz =~ s/^\-//) {
$s -= tz_to_s_offset($tz);
}
} elsif ($tz =~ s/^\-//) {
$s -= tz_to_s_offset($tz);
}
- eval { command_close_pipe($fh) };
+ close $fh;
return $s;
}
die "Can't get commit time for commit: $cmt\n";
return $s;
}
die "Can't get commit time for commit: $cmt\n";
delete $rm->{join '/', @dn};
}
unless (%$rm) {
delete $rm->{join '/', @dn};
}
unless (%$rm) {
- eval { command_close_pipe($fh) };
+ close $fh;
return;
}
}
return;
}
}