mirrors/git
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Force Activestate Perl to tie git command pipe handle to a handle class

Browse Source 
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:
Alex Riesen
2007-01-22 17:16:05 +01:00
committed by Junio C Hamano
parent d3b1785f3f
commit bed118d6bb
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
perl/Git.pm
View File

@ -742,7 +742,13 @@ sub _command_common_pipe {
# warn 'ignoring STDERR option - running w/ ActiveState'; # warn 'ignoring STDERR option - running w/ ActiveState';
$direction eq '-|' or $direction eq '-|' or
die 'input pipe for ActiveState not implemented'; 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 { } else {
my $pid = open($fh, $direction); my $pid = open($fh, $direction);