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:
Marcus Griep 2008-09-10 11:09:46 -04:00 коммит произвёл Junio C Hamano
Родитель 836ff95df6
Коммит 971e628384
1 изменённых файлов: 1 добавлений и 1 удалений

Просмотреть файл

@ -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