For people who stuck with ActiveState Perl, as there seem to be
no chance for it to support the list form of "open" in foreseeable future.
Working it around again.
Should be harmless, as there are only sha1s passed
---
@#$%^&* windows!!!
>From nobody Mon Sep 17 00:00:00 2001
From: Alex Riesen <raa.lkml@xxxxxxxxx>
Date: Tue Feb 21 15:53:39 2006 +0100
Subject: fix git-fmt-merge-msg on activestate perl
---
git-fmt-merge-msg.perl | 7 +++----
1 files changed, 3 insertions(+), 4 deletions(-)
65ca8f2e90b9816c1748847fc406d26a56b7ad2d
diff --git a/git-fmt-merge-msg.perl b/git-fmt-merge-msg.perl
index 9071312..f4ecd13 100755
--- a/git-fmt-merge-msg.perl
+++ b/git-fmt-merge-msg.perl
@@ -33,7 +33,7 @@ sub repoconfig {
my $fh;
my $val;
eval {
- open $fh, '-|', 'git-repo-config', '--get', 'merge.summary'
+ open($fh, 'git-repo-config --get merge.summary |')
or die "$!";
($val) = <$fh>;
close $fh;
@@ -43,7 +43,7 @@ sub repoconfig {
sub current_branch {
my $fh;
- open $fh, '-|', 'git-symbolic-ref', 'HEAD' or die "$!";
+ open($fh, 'git-symbolic-ref HEAD |') or die "$!";
my ($bra) = <$fh>;
chomp($bra);
$bra =~ s|^refs/heads/||;
@@ -59,8 +59,7 @@ sub current_branch {
sub shortlog {
my ($tip) = @_;
my ($fh, @result);
- open $fh, '-|', ('git-log', '--topo-order',
- '--pretty=oneline', $tip, '^HEAD')
+ open($fh, "git-log --topo-order --pretty=oneline $tip ^HEAD |")
or die "$!";
while (<$fh>) {
s/^[0-9a-f]{40}\s+//;
--
1.2.2.g65ca8