git-svn: Fixes my() parameter list syntax error in pre-5.8 Perl
authorMarcus Griep <marcus@griep.us>
Wed, 10 Sep 2008 15:09:46 +0000 (11:09 -0400)
committerJunio C Hamano <gitster@pobox.com>
Wed, 10 Sep 2008 18:47:06 +0000 (11:47 -0700)
Signed-off-by: Marcus Griep <marcus@griep.us>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
git-svn.perl

index 95c6c85bbd78d678f4bb91325f8b6ea0fd020b14..237895c236118f6d92a6752cce2e23cfb4abfa3e 100755 (executable)
@@ -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