Force Activestate Perl to tie git command pipe handle to a handle class
Otherwise it tries to tie it to a scalar and complains about missing method. Dunno why, may be ActiveState brokenness again. Signed-off-by: Alex Riesen <raa.lkml@gmail.com> Acked-by: Petr Baudis <pasky@suse.cz> Signed-off-by: Junio C Hamano <junkio@cox.net>
This commit is contained in:
parent
d3b1785f3f
commit
bed118d6bb
@ -742,7 +742,13 @@ sub _command_common_pipe {
|
||||
# warn 'ignoring STDERR option - running w/ ActiveState';
|
||||
$direction eq '-|' or
|
||||
die 'input pipe for ActiveState not implemented';
|
||||
tie ($fh, 'Git::activestate_pipe', $cmd, @args);
|
||||
# the strange construction with *ACPIPE is just to
|
||||
# explain the tie below that we want to bind to
|
||||
# a handle class, not scalar. It is not known if
|
||||
# it is something specific to ActiveState Perl or
|
||||
# just a Perl quirk.
|
||||
tie (*ACPIPE, 'Git::activestate_pipe', $cmd, @args);
|
||||
$fh = *ACPIPE;
|
||||
|
||||
} else {
|
||||
my $pid = open($fh, $direction);
|
||||
|
Loading…
Reference in New Issue
Block a user