path: root/perl
diff options
authorAlex Riesen <>2007-01-22 16:16:05 (GMT)
committerJunio C Hamano <>2007-01-22 17:44:26 (GMT)
commitbed118d6bb6dee92180469466dfa265265678dd4 (patch)
tree56dde72293ed343d4dc4728cd71b1bbfb521aa93 /perl
parentd3b1785f3fe681f6837a6110008af98003f675d3 (diff)
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 <> Acked-by: Petr Baudis <> Signed-off-by: Junio C Hamano <>
Diffstat (limited to 'perl')
1 files changed, 7 insertions, 1 deletions
diff --git a/perl/ b/perl/
index 58414e3..2f6b59a 100644
--- a/perl/
+++ b/perl/
@@ -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);