mirrors/git
0
0
Fork 0
mirror of https://github.com/git/git.git synced 2024-11-24 10:26:17 +08:00
Code Issues Packages Projects Releases Wiki Activity

git-svn: Fixes my() parameter list syntax error in pre-5.8 Perl

Browse Source 
Signed-off-by: Marcus Griep <marcus@griep.us>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
This commit is contained in:
Marcus Griep 2008-09-10 11:09:46 -04:00 committed by Junio C Hamano
parent 836ff95df6
commit 971e628384
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
git-svn.perl
View File

@ -4383,7 +4383,7 @@ sub config_pager {
sub run_pager { sub run_pager {
return unless -t *STDOUT && defined $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: $!"; defined(my $pid = fork) or ::fatal "Can't fork: $!";
if (!$pid) { if (!$pid) {
open STDOUT, '>&', $wfd or open STDOUT, '>&', $wfd or