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>
Marcus Griep committed
Sep 10, 2008 at 11:09 UTC
971e628384fea14e9c0bf96e1c69b97df6ec540e
1 file changed
+1
-1
git-svn.perl
+1
-1
@@ -4383,7 +4383,7 @@ sub config_pager {
4383
4384
sub run_pager {
4385
return unless -t *STDOUT && defined $pager;
4386
- pipe my $rfd, my $wfd or return;
4386
+ pipe my ($rfd, $wfd) or return;
4387
defined(my $pid = fork) or ::fatal "Can't fork: $!";
4388
if (!$pid) {
4389
open STDOUT, '>&', $wfd or