summaryrefslogtreecommitdiff
path: root/git-svn.perl
diff options
context:
space:
mode:
authorMarcus Griep <marcus@griep.us>2008-09-10 11:09:46 -0400
committerJunio C Hamano <gitster@pobox.com>2008-09-10 11:47:06 -0700
commit971e628384fea14e9c0bf96e1c69b97df6ec540e (patch)
tree4aaf7a37e32f83f60f6da0c35f848802bd4f9497 /git-svn.perl
parent836ff95df6de9924cf8cf23515e3779a67a6bdec (diff)
downloadgit-971e628384fea14e9c0bf96e1c69b97df6ec540e.tar.gz
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>
Diffstat (limited to 'git-svn.perl')
-rwxr-xr-xgit-svn.perl2
1 files changed, 1 insertions, 1 deletions
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