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

From: Marcus Griep <marcus@griep.us>
Date: Sep 10, 2008, 15:09 UTC
Message-ID: <1221059386-3972-1-git-send-email-marcus@griep.us>
In-Reply-To: <48C7745F.1070008@statsbiblioteket.dk>

---

 Per Tom G. Christensen's commentary on a breaking test in git-svn.

 git-svn.perl |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/git-svn.perl b/git-svn.perl
index ecacf74..a97e1ca 100755
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -4425,7 +4425,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

-- 
1.6.0.1.415.g7bb82