mirror of
https://github.com/git/git
synced 2024-10-30 14:03:28 +00:00
git-svn: Fixes my() parameter list syntax error in pre-5.8 Perl
Signed-off-by: Marcus Griep <marcus@griep.us> Signed-off-by: Junio C Hamano <gitster@pobox.com>
This commit is contained in:
parent
836ff95df6
commit
971e628384
1 changed files with 1 additions and 1 deletions
|
@ -4383,7 +4383,7 @@ sub config_pager {
|
|||
|
||||
sub run_pager {
|
||||
return unless -t *STDOUT && defined $pager;
|
||||
pipe my $rfd, my $wfd or return;
|
||||
pipe my ($rfd, $wfd) or return;
|
||||
defined(my $pid = fork) or ::fatal "Can't fork: $!";
|
||||
if (!$pid) {
|
||||
open STDOUT, '>&', $wfd or
|
||||
|
|
Loading…
Reference in a new issue