From: Marcus Griep <marcus@griep.us>
Date: Wed, 10 Sep 2008 15:09:46 +0000 (-0400)
Subject: git-svn: Fixes my() parameter list syntax error in pre-5.8 Perl
X-Git-Tag: v1.6.0.2~7
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=971e628384fea14e9c0bf96e1c69b97df6ec540e;p=git

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

diff --git a/git-svn.perl b/git-svn.perl
index 95c6c85bbd..237895c236 100755
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -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