{"thread":{"id":"6474","subject":"[RESEND PATCH 2/3] Force Activestate Perl to tie git command pipe handle to a handle class","startedAt":"2007-01-22T17:12:15Z","lastAt":"2007-01-22T17:12:15Z","messageCount":1,"participants":["Alex Riesen"],"isPatch":true,"patchVersion":1,"patchTotal":3},"messages":[{"id":"32311","messageId":"81b0412b0701220912qde73d90y7c2b7529cbfad314@mail.gmail.com","threadId":"6474","inReplyTo":null,"subject":"[RESEND PATCH 2/3] Force Activestate Perl to tie git command pipe handle to a handle class","fromName":"Alex Riesen","fromEmail":"raa.lkml@gmail.com","sentAt":"2007-01-22T17:12:15Z","receivedAt":"2007-01-22T17:12:15Z","isPatch":true,"sender":{"key":"raa.lkml@gmail.com","avatar":"https://avatars.githubusercontent.com/u/324101?v=4"},"body":"Otherwise it tries to tie it to a scalar and complains about missing\nmethod. Dunno why, may be ActiveState brokenness again.\n\nSigned-off-by: Alex Riesen <raa.lkml@gmail.com>\n---\n perl/Git.pm |    8 +++++++-\n 1 files changed, 7 insertions(+), 1 deletions(-)\n\n\nFrom 2b8a716c644c3a4ca85446007daee0e792703822 Mon Sep 17 00:00:00 2001\nFrom: Alex Riesen <raa.lkml@gmail.com>\nDate: Mon, 22 Jan 2007 17:16:05 +0100\nSubject: [PATCH 2/3] Force Activestate Perl to tie git command pipe handle to a handle class\n\nOtherwise it tries to tie it to a scalar and complains about missing\nmethod. Dunno why, may be ActiveState brokenness again.\n\nSigned-off-by: Alex Riesen <raa.lkml@gmail.com>\n---\n perl/Git.pm |    8 +++++++-\n 1 files changed, 7 insertions(+), 1 deletions(-)\n\ndiff --git a/perl/Git.pm b/perl/Git.pm\nindex 58414e3..2f6b59a 100644\n--- a/perl/Git.pm\n+++ b/perl/Git.pm\n@@ -742,7 +742,13 @@ sub _command_common_pipe {\n \t\t#\twarn 'ignoring STDERR option - running w/ ActiveState';\n \t\t$direction eq '-|' or\n \t\t\tdie 'input pipe for ActiveState not implemented';\n-\t\ttie ($fh, 'Git::activestate_pipe', $cmd, @args);\n+\t\t# the strange construction with *ACPIPE is just to\n+\t\t# explain the tie below that we want to bind to\n+\t\t# a handle class, not scalar. It is not known if\n+\t\t# it is something specific to ActiveState Perl or\n+\t\t# just a Perl quirk.\n+\t\ttie (*ACPIPE, 'Git::activestate_pipe', $cmd, @args);\n+\t\t$fh = *ACPIPE;\n \n \t} else {\n \t\tmy $pid = open($fh, $direction);\n-- \n1.5.0.rc2.g3f1a\n\n"}]}