Re: [PATCH] git-svn: Fixes my() parameter list syntax error in pre-5.8 Perl
Sorry:
Signed-off-by: Marcus Griep <marcus@griep.us>
Marcus Griep wrote:
Show 20 quoted lines
> ---
>
> 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--
Marcus Griep
GPG Key ID: 0x5E968152
——
http://www.boohaunt.net
את.ψο´