diff options
| author | Marcus Griep <marcus@griep.us> | 2008-09-10 15:09:46 (GMT) |
|---|---|---|
| committer | Junio C Hamano <gitster@pobox.com> | 2008-09-10 18:47:06 (GMT) |
| commit | 971e628384fea14e9c0bf96e1c69b97df6ec540e (patch) | |
| tree | 4aaf7a37e32f83f60f6da0c35f848802bd4f9497 /git-svn.perl | |
| parent | 836ff95df6de9924cf8cf23515e3779a67a6bdec (diff) | |
| download | git-971e628384fea14e9c0bf96e1c69b97df6ec540e.zip git-971e628384fea14e9c0bf96e1c69b97df6ec540e.tar.gz git-971e628384fea14e9c0bf96e1c69b97df6ec540e.tar.bz2 | |
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-x | git-svn.perl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/git-svn.perl b/git-svn.perl index 95c6c85..237895c 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 |