diff options
| author | Marcus Griep <marcus@griep.us> | 2008-09-10 11:09:46 -0400 |
|---|---|---|
| committer | Junio C Hamano <gitster@pobox.com> | 2008-09-10 11:47:06 -0700 |
| commit | 971e628384fea14e9c0bf96e1c69b97df6ec540e (patch) | |
| tree | 4aaf7a37e32f83f60f6da0c35f848802bd4f9497 /git-svn.perl | |
| parent | 836ff95df6de9924cf8cf23515e3779a67a6bdec (diff) | |
| download | git-971e628384fea14e9c0bf96e1c69b97df6ec540e.tar.gz git-971e628384fea14e9c0bf96e1c69b97df6ec540e.tar.xz | |
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 95c6c85bb..237895c23 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 |