Andrew's git
/
gitweb.git
/ diff
summary
|
log
|
commit
| diff |
tree
commit
grep
author
committer
pickaxe
?
re
Insert ACTIVESTATE_STRING in Git.pm
author
Alex Riesen
<raa.lkml@gmail.com>
Mon, 22 Jan 2007 16:14:56 +0000
(17:14 +0100)
committer
Junio C Hamano
<junkio@cox.net>
Mon, 22 Jan 2007 17:44:25 +0000
(09:44 -0800)
Also add "git" to the pipe parameters, otherwise it does not work at all, as
no git commands are usable out of git context.
Signed-off-by: Alex Riesen <raa.lkml@gmail.com>
Signed-off-by: Junio C Hamano <junkio@cox.net>
perl/Git.pm
patch
|
blob
|
history
raw
|
patch
|
inline
| side by side (parent:
18af29f
)
diff --git
a/perl/Git.pm
b/perl/Git.pm
index 3474ad320f6c90a67eb4a5973092f4210d173e9d..58414e3ec80d227249b06c75abe027655079a8eb 100644
(file)
--- a/
perl/Git.pm
+++ b/
perl/Git.pm
@@
-736,7
+736,7
@@
sub _command_common_pipe {
_check_valid_cmd($cmd);
my $fh;
_check_valid_cmd($cmd);
my $fh;
- if ($^O eq '
##INSERT_ACTIVESTATE_STRING_HERE##
') {
+ if ($^O eq '
MSWin32
') {
# ActiveState Perl
#defined $opts{STDERR} and
# warn 'ignoring STDERR option - running w/ ActiveState';
# ActiveState Perl
#defined $opts{STDERR} and
# warn 'ignoring STDERR option - running w/ ActiveState';
@@
-809,8
+809,9
@@
sub TIEHANDLE {
# FIXME: This is probably horrible idea and the thing will explode
# at the moment you give it arguments that require some quoting,
# but I have no ActiveState clue... --pasky
# FIXME: This is probably horrible idea and the thing will explode
# at the moment you give it arguments that require some quoting,
# but I have no ActiveState clue... --pasky
- my $cmdline = join " ", @params;
- my @data = qx{$cmdline};
+ # Let's just hope ActiveState Perl does at least the quoting
+ # correctly.
+ my @data = qx{git @params};
bless { i => 0, data => \@data }, $class;
}
bless { i => 0, data => \@data }, $class;
}