From 07eb88eb67b1ac6a96a7a13644abf3fca4281182 Mon Sep 17 00:00:00 2001 From: Alex Riesen Date: Mon, 22 Jan 2007 15:25:41 +0100 Subject: [PATCH] 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. --- perl/Git.pm | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/perl/Git.pm b/perl/Git.pm index 58414e3..3b32a28 100644 --- a/perl/Git.pm +++ b/perl/Git.pm @@ -742,7 +742,8 @@ 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); + tie (*ACPIPE, 'Git::activestate_pipe', $cmd, @args); + $fh = *ACPIPE; } else { my $pid = open($fh, $direction); -- 1.5.0.rc2.g3f1a