2 # Copyright (c) 2009 David Aguilar
4 # This is a wrapper around the GIT_EXTERNAL_DIFF-compatible
5 # git-difftool--helper script. This script exports
6 # GIT_EXTERNAL_DIFF and GIT_PAGER for use by git, and
7 # GIT_DIFFTOOL_NO_PROMPT and GIT_DIFF_TOOL for use by git-difftool--helper.
8 # Any arguments that are unknown to this script are forwarded to 'git diff'.
13 use File
::Basename
qw(dirname);
15 my $DIR = abs_path
(dirname
($0));
21 usage
: git difftool
[--tool
=<tool
>] [-y
|--no-prompt
] ["git diff" options
]
28 $ENV{PATH
} = "$DIR:$ENV{PATH}";
30 $ENV{GIT_EXTERNAL_DIFF
} = 'git-difftool--helper';
36 if ($^O
eq 'MSWin32' || $^O
eq 'msys') {
44 my @command = (exe
('git'), 'diff');
53 if ($arg eq '-t' || $arg eq '--tool') {
54 usage
() if $#ARGV <= $idx;
55 $ENV{GIT_DIFF_TOOL
} = $ARGV[$idx + 1];
59 if ($arg =~ /^--tool=/) {
60 $ENV{GIT_DIFF_TOOL
} = substr($arg, 7);
63 if ($arg eq '-y' || $arg eq '--no-prompt') {
64 $ENV{GIT_DIFFTOOL_NO_PROMPT
} = 'true';
67 if ($arg eq '-h' || $arg eq '--help') {
76 exec(generate_command
());