* [PATCH v14 8/9] difftool: teach difftool to handle directory diffs
@ 2012-04-20 16:56 Tim Henigan
2012-04-20 20:54 ` Junio C Hamano
2012-04-21 23:07 ` David Aguilar
0 siblings, 2 replies; 3+ messages in thread
From: Tim Henigan @ 2012-04-20 16:56 UTC (permalink / raw)
To: gitster, git, davvid, ramsay; +Cc: Tim Henigan
When 'difftool' is called to compare a range of commits that modify
more than one file, it opens a separate instance of the diff tool for
each file that changed.
The new '--dir-diff' option copies all the modified files to a temporary
location and runs a directory diff on them in a single instance of the
diff tool.
Signed-off-by: Tim Henigan <tim.henigan@gmail.com>
---
This replaces 7fbdc6c on the th/difftool-diffall branch [1].
Changes in v14:
- Fixed use of unitialized vars in the find_worktree function. A warning
was seen when run on msysgit, but not other platforms.
- Added a helper function (write_to_file) to replace repeated logic.
- Fixed handling of symbolic links. The diff shown in the external tool
now matches what is seen in the output of 'git diff'.
- Added support for the diff format used for renames and copies. In the
external tool, these will still appear as delete/add pairs.
- Added logic to detect and abort if a combined diff ('--cc' or '-c')
is commanded at the same time as directory diff ('--dir-diff').
[1]: https://github.com/gitster/git/tree/th/difftool-diffall
Documentation/git-difftool.txt | 6 +
git-difftool--helper.sh | 19 ++-
git-difftool.perl | 261 +++++++++++++++++++++++++++++++++++++---
t/t7800-difftool.sh | 39 ++++++
4 files changed, 299 insertions(+), 26 deletions(-)
diff --git a/Documentation/git-difftool.txt b/Documentation/git-difftool.txt
index fe38f66..aba5e76 100644
--- a/Documentation/git-difftool.txt
+++ b/Documentation/git-difftool.txt
@@ -19,6 +19,12 @@ linkgit:git-diff[1].
OPTIONS
-------
+-d::
+--dir-diff::
+ Copy the modified files to a temporary location and perform
+ a directory diff on them. This mode never prompts before
+ launching the diff tool.
+
-y::
--no-prompt::
Do not prompt before launching a diff tool.
diff --git a/git-difftool--helper.sh b/git-difftool--helper.sh
index e6558d1..3d0fe0c 100755
--- a/git-difftool--helper.sh
+++ b/git-difftool--helper.sh
@@ -73,9 +73,16 @@ then
fi
fi
-# Launch the merge tool on each path provided by 'git diff'
-while test $# -gt 6
-do
- launch_merge_tool "$1" "$2" "$5"
- shift 7
-done
+if test -n "$GIT_DIFFTOOL_DIRDIFF"
+then
+ LOCAL="$1"
+ REMOTE="$2"
+ run_merge_tool "$merge_tool" false
+else
+ # Launch the merge tool on each path provided by 'git diff'
+ while test $# -gt 6
+ do
+ launch_merge_tool "$1" "$2" "$5"
+ shift 7
+ done
+fi
diff --git a/git-difftool.perl b/git-difftool.perl
index aba3d2f..7211f1e 100755
--- a/git-difftool.perl
+++ b/git-difftool.perl
@@ -1,21 +1,31 @@
-#!/usr/bin/env perl
+#!/usr/bin/perl
# Copyright (c) 2009, 2010 David Aguilar
+# Copyright (c) 2012 Tim Henigan
#
# This is a wrapper around the GIT_EXTERNAL_DIFF-compatible
# git-difftool--helper script.
#
# This script exports GIT_EXTERNAL_DIFF and GIT_PAGER for use by git.
-# GIT_DIFFTOOL_NO_PROMPT, GIT_DIFFTOOL_PROMPT, and GIT_DIFF_TOOL
-# are exported for use by git-difftool--helper.
+# The GIT_DIFF* variables are exported for use by git-difftool--helper.
#
# Any arguments that are unknown to this script are forwarded to 'git diff'.
use 5.008;
use strict;
use warnings;
+use File::Basename qw(dirname);
+use File::Copy;
+use File::stat;
+use File::Path qw(mkpath);
+use File::Temp qw(tempdir);
use Getopt::Long qw(:config pass_through);
use Git;
+my @working_tree;
+my $rc;
+my $repo = Git->repository();
+my $repo_path = $repo->repo_path();
+
sub usage
{
my $exitcode = shift;
@@ -24,15 +34,202 @@ usage: git difftool [-t|--tool=<tool>]
[-x|--extcmd=<cmd>]
[-g|--gui] [--no-gui]
[--prompt] [-y|--no-prompt]
+ [-d|--dir-diff]
['git diff' options]
USAGE
exit($exitcode);
}
+sub find_worktree
+{
+ # Git->repository->wc_path() does not honor changes to the working
+ # tree location made by $ENV{GIT_WORK_TREE} or the 'core.worktree'
+ # config variable.
+ my $worktree;
+ my $env_worktree = $ENV{GIT_WORK_TREE};
+ my $core_worktree = Git::config('core.worktree');
+
+ if (defined($env_worktree) and (length($env_worktree) > 0)) {
+ $worktree = $env_worktree;
+ } elsif (defined($core_worktree) and (length($core_worktree) > 0)) {
+ $worktree = $core_worktree;
+ } else {
+ $worktree = $repo->wc_path();
+ }
+
+ return $worktree;
+}
+
+my $workdir = find_worktree();
+
+sub setup_dir_diff
+{
+ # Run the diff; exit immediately if no diff found
+ # 'Repository' and 'WorkingCopy' must be explicitly set to insure that
+ # if $GIT_DIR and $GIT_WORK_TREE are set in ENV, they are actually used
+ # by Git->repository->command*.
+ my $diffrepo = Git->repository(Repository => $repo_path, WorkingCopy => $workdir);
+ my $diffrtn = $diffrepo->command_oneline('diff', '--raw', '--no-abbrev', '-z', @ARGV);
+ exit(0) if (length($diffrtn) == 0);
+
+ if ($diffrtn =~ /::/) {
+ print "Combined diff formats ('-c' and '--cc') are not supported in directory diff mode.\n";
+ exit(1);
+ }
+
+ # Setup temp directories
+ my $tmpdir = tempdir('git-diffall.XXXXX', CLEANUP => 1, TMPDIR => 1);
+ my $ldir = "$tmpdir/left";
+ my $rdir = "$tmpdir/right";
+ mkpath($ldir) or die $!;
+ mkpath($rdir) or die $!;
+
+ # Build index info for left and right sides of the diff
+ my $submodule_mode = "160000";
+ my $symlink_mode = "120000";
+ my $null_mode = "0" x 6;
+ my $null_sha1 = "0" x 40;
+ my $lindex = "";
+ my $rindex = "";
+ my %submodule;
+ my %symlink;
+ my @rawdiff = split(':', $diffrtn);
+
+ for (my $i=1; $i<@rawdiff; $i++) {
+ my @fields = split('\0', $rawdiff[$i]);
+ my @stat = split(' ', splice(@fields, 0, 1));
+
+ my ($lmode, $rmode, $lsha1, $rsha1, $status) = @stat;
+ my ($src_path, $dst_path) = @fields;
+
+ if (not defined($dst_path)) {
+ $dst_path = $src_path;
+ }
+
+ if (($lmode eq $submodule_mode) or ($rmode eq $submodule_mode)) {
+ $submodule{$src_path}{left} = $lsha1;
+ if ($lsha1 ne $rsha1) {
+ $submodule{$dst_path}{right} = $rsha1;
+ } else {
+ $submodule{$dst_path}{right} = "$rsha1-dirty";
+ }
+ next;
+ }
+
+ if ($lmode eq $symlink_mode) {
+ $symlink{$src_path}{left} = $diffrepo->command_oneline('show', "$lsha1");
+ }
+
+ if ($rmode eq $symlink_mode) {
+ $symlink{$dst_path}{right} = $diffrepo->command_oneline('show', "$rsha1");
+ }
+
+ if ($lmode ne $null_mode) {
+ $lindex .= "$lmode $lsha1\t$src_path\0";
+ }
+
+ if ($rmode ne $null_mode) {
+ if ($rsha1 ne $null_sha1) {
+ $rindex .= "$rmode $rsha1\t$dst_path\0";
+ } else {
+ push(@working_tree, $dst_path);
+ }
+ }
+ }
+
+ # If $GIT_DIR is not set prior to calling 'git update-index' and
+ # 'git checkout-index', then those commands will fail if difftool
+ # is called from a directory other than the repo root.
+ my $must_unset_git_dir = 0;
+ if (not defined($ENV{GIT_DIR})) {
+ $must_unset_git_dir = 1;
+ $ENV{GIT_DIR} = $repo_path;
+ }
+
+ # Populate the left and right directories based on each index file
+ my ($inpipe, $ctx);
+ $ENV{GIT_INDEX_FILE} = "$tmpdir/lindex";
+ ($inpipe, $ctx) = $repo->command_input_pipe(qw/update-index -z --index-info/);
+ print($inpipe $lindex);
+ $repo->command_close_pipe($inpipe, $ctx);
+ $rc = system('git', 'checkout-index', '--all', "--prefix=$ldir/");
+ exit($rc | ($rc >> 8)) if ($rc != 0);
+
+ $ENV{GIT_INDEX_FILE} = "$tmpdir/rindex";
+ ($inpipe, $ctx) = $repo->command_input_pipe(qw/update-index -z --index-info/);
+ print($inpipe $rindex);
+ $repo->command_close_pipe($inpipe, $ctx);
+ $rc = system('git', 'checkout-index', '--all', "--prefix=$rdir/");
+ exit($rc | ($rc >> 8)) if ($rc != 0);
+
+ # If $GIT_DIR was explicitly set just for the update/checkout
+ # commands, then it should be unset before continuing.
+ delete($ENV{GIT_DIR}) if ($must_unset_git_dir);
+ delete($ENV{GIT_INDEX_FILE});
+
+ # Changes in the working tree need special treatment since they are
+ # not part of the index
+ for my $file (@working_tree) {
+ my $dir = dirname($file);
+ unless (-d "$rdir/$dir") {
+ mkpath("$rdir/$dir") or die $!;
+ }
+ copy("$workdir/$file", "$rdir/$file") or die $!;
+ chmod(stat("$workdir/$file")->mode, "$rdir/$file") or die $!;
+ }
+
+ # Changes to submodules require special treatment. This loop writes a
+ # temporary file to both the left and right directories to show the
+ # change in the recorded SHA1 for the submodule.
+ for my $path (keys %submodule) {
+ if (defined($submodule{$path}{left})) {
+ write_to_file("$ldir/$path", "Subproject commit $submodule{$path}{left}");
+ }
+ if (defined($submodule{$path}{right})) {
+ write_to_file("$rdir/$path", "Subproject commit $submodule{$path}{right}");
+ }
+ }
+
+ # Symbolic links require special treatment. The standard "git diff"
+ # shows only the link itself, not the contents of the link target.
+ # This loop replicates that behavior.
+ for my $path (keys %symlink) {
+ if (defined($symlink{$path}{left})) {
+ write_to_file("$ldir/$path", $symlink{$path}{left});
+ }
+ if (defined($symlink{$path}{right})) {
+ write_to_file("$rdir/$path", $symlink{$path}{right});
+ }
+ }
+
+ return ($ldir, $rdir);
+}
+
+sub write_to_file
+{
+ my $path = shift;
+ my $value = shift;
+
+ # Make sure the path to the file exists
+ my $dir = dirname($path);
+ unless (-d "$dir") {
+ mkpath("$dir") or die $!;
+ }
+
+ # If the file already exists in that location, delete it. This
+ # is required in the case of symbolic links.
+ unlink("$path");
+
+ open(my $fh, ">", "$path") or die $!;
+ print($fh $value);
+ close($fh);
+}
+
# parse command-line options. all unrecognized options and arguments
# are passed through to the 'git diff' command.
-my ($difftool_cmd, $extcmd, $gui, $help, $prompt);
+my ($difftool_cmd, $dirdiff, $extcmd, $gui, $help, $prompt);
GetOptions('g|gui!' => \$gui,
+ 'd|dir-diff' => \$dirdiff,
'h' => \$help,
'prompt!' => \$prompt,
'y' => sub { $prompt = 0; },
@@ -65,22 +262,46 @@ if ($gui) {
$ENV{GIT_DIFF_TOOL} = $guitool;
}
}
-if (defined($prompt)) {
- if ($prompt) {
- $ENV{GIT_DIFFTOOL_PROMPT} = 'true';
+
+# In directory diff mode, 'git-difftool--helper' is called once
+# to compare the a/b directories. In file diff mode, 'git diff'
+# will invoke a separate instance of 'git-difftool--helper' for
+# each file that changed.
+if (defined($dirdiff)) {
+ my ($a, $b) = setup_dir_diff();
+ if (defined($extcmd)) {
+ $rc = system($extcmd, $a, $b);
} else {
- $ENV{GIT_DIFFTOOL_NO_PROMPT} = 'true';
+ $ENV{GIT_DIFFTOOL_DIRDIFF} = 'true';
+ $rc = system('git', 'difftool--helper', $a, $b);
}
-}
-$ENV{GIT_PAGER} = '';
-$ENV{GIT_EXTERNAL_DIFF} = 'git-difftool--helper';
-my @command = ('git', 'diff', @ARGV);
-
-# ActiveState Perl for Win32 does not implement POSIX semantics of
-# exec* system call. It just spawns the given executable and finishes
-# the starting program, exiting with code 0.
-# system will at least catch the errors returned by git diff,
-# allowing the caller of git difftool better handling of failures.
-my $rc = system(@command);
-exit($rc | ($rc >> 8));
+ exit($rc | ($rc >> 8)) if ($rc != 0);
+
+ # If the diff including working copy files and those
+ # files were modified during the diff, then the changes
+ # should be copied back to the working tree
+ for my $file (@working_tree) {
+ copy("$b/$file", "$workdir/$file") or die $!;
+ chmod(stat("$b/$file")->mode, "$workdir/$file") or die $!;
+ }
+} else {
+ if (defined($prompt)) {
+ if ($prompt) {
+ $ENV{GIT_DIFFTOOL_PROMPT} = 'true';
+ } else {
+ $ENV{GIT_DIFFTOOL_NO_PROMPT} = 'true';
+ }
+ }
+
+ $ENV{GIT_PAGER} = '';
+ $ENV{GIT_EXTERNAL_DIFF} = 'git-difftool--helper';
+
+ # ActiveState Perl for Win32 does not implement POSIX semantics of
+ # exec* system call. It just spawns the given executable and finishes
+ # the starting program, exiting with code 0.
+ # system will at least catch the errors returned by git diff,
+ # allowing the caller of git difftool better handling of failures.
+ my $rc = system('git', 'diff', @ARGV);
+ exit($rc | ($rc >> 8));
+}
diff --git a/t/t7800-difftool.sh b/t/t7800-difftool.sh
index e716d06..478c1be 100755
--- a/t/t7800-difftool.sh
+++ b/t/t7800-difftool.sh
@@ -319,4 +319,43 @@ test_expect_success PERL 'say no to the second file' '
echo "$diff" | stdin_doesnot_contain br2
'
+test_expect_success PERL 'setup change in subdirectory' '
+ git checkout master &&
+ mkdir sub &&
+ echo master >sub/sub &&
+ git add sub/sub &&
+ git commit -m "added sub/sub" &&
+ echo test >>file &&
+ echo test >>sub/sub &&
+ git add . &&
+ git commit -m "modified both"
+'
+
+test_expect_success PERL 'difftool -d' '
+ diff=$(git difftool -d --extcmd ls branch) &&
+ echo "$diff" | stdin_contains sub &&
+ echo "$diff" | stdin_contains file
+'
+
+test_expect_success PERL 'difftool --dir-diff' '
+ diff=$(git difftool --dir-diff --extcmd ls branch) &&
+ echo "$diff" | stdin_contains sub &&
+ echo "$diff" | stdin_contains file
+'
+
+test_expect_success PERL 'difftool --dir-diff ignores --prompt' '
+ diff=$(git difftool --dir-diff --prompt --extcmd ls branch) &&
+ echo "$diff" | stdin_contains sub &&
+ echo "$diff" | stdin_contains file
+'
+
+test_expect_success PERL 'difftool --dir-diff from subdirectory' '
+ (
+ cd sub &&
+ diff=$(git difftool --dir-diff --extcmd ls branch) &&
+ echo "$diff" | stdin_contains sub &&
+ echo "$diff" | stdin_contains file
+ )
+'
+
test_done
--
1.7.10.rc1.26.g5eb68
^ permalink raw reply related [flat|nested] 3+ messages in thread
* Re: [PATCH v14 8/9] difftool: teach difftool to handle directory diffs
2012-04-20 16:56 [PATCH v14 8/9] difftool: teach difftool to handle directory diffs Tim Henigan
@ 2012-04-20 20:54 ` Junio C Hamano
2012-04-21 23:07 ` David Aguilar
1 sibling, 0 replies; 3+ messages in thread
From: Junio C Hamano @ 2012-04-20 20:54 UTC (permalink / raw)
To: Tim Henigan; +Cc: gitster, git, davvid, ramsay
Tim Henigan <tim.henigan@gmail.com> writes:
> When 'difftool' is called to compare a range of commits that modify
> more than one file, it opens a separate instance of the diff tool for
> each file that changed.
>
> The new '--dir-diff' option copies all the modified files to a temporary
> location and runs a directory diff on them in a single instance of the
> diff tool.
>
> Signed-off-by: Tim Henigan <tim.henigan@gmail.com>
> ---
>
> This replaces 7fbdc6c on the th/difftool-diffall branch [1].
>
> Changes in v14:
>
> - Fixed use of unitialized vars in the find_worktree function. A warning
> was seen when run on msysgit, but not other platforms.
>
> - Added a helper function (write_to_file) to replace repeated logic.
>
> - Fixed handling of symbolic links. The diff shown in the external tool
> now matches what is seen in the output of 'git diff'.
>
> - Added support for the diff format used for renames and copies. In the
> external tool, these will still appear as delete/add pairs.
>
> - Added logic to detect and abort if a combined diff ('--cc' or '-c')
> is commanded at the same time as directory diff ('--dir-diff').
>
> [1]: https://github.com/gitster/git/tree/th/difftool-diffall
>
>
> Documentation/git-difftool.txt | 6 +
> git-difftool--helper.sh | 19 ++-
> git-difftool.perl | 261 +++++++++++++++++++++++++++++++++++++---
> t/t7800-difftool.sh | 39 ++++++
> 4 files changed, 299 insertions(+), 26 deletions(-)
>
> diff --git a/Documentation/git-difftool.txt b/Documentation/git-difftool.txt
> index fe38f66..aba5e76 100644
> --- a/Documentation/git-difftool.txt
> +++ b/Documentation/git-difftool.txt
> @@ -19,6 +19,12 @@ linkgit:git-diff[1].
>
> OPTIONS
> -------
> +-d::
> +--dir-diff::
> + Copy the modified files to a temporary location and perform
> + a directory diff on them. This mode never prompts before
> + launching the diff tool.
> +
> -y::
> --no-prompt::
> Do not prompt before launching a diff tool.
> diff --git a/git-difftool--helper.sh b/git-difftool--helper.sh
> index e6558d1..3d0fe0c 100755
> --- a/git-difftool--helper.sh
> +++ b/git-difftool--helper.sh
> @@ -73,9 +73,16 @@ then
> fi
> fi
>
> -# Launch the merge tool on each path provided by 'git diff'
> -while test $# -gt 6
> -do
> - launch_merge_tool "$1" "$2" "$5"
> - shift 7
> -done
> +if test -n "$GIT_DIFFTOOL_DIRDIFF"
> +then
> + LOCAL="$1"
> + REMOTE="$2"
> + run_merge_tool "$merge_tool" false
> +else
> + # Launch the merge tool on each path provided by 'git diff'
> + while test $# -gt 6
> + do
> + launch_merge_tool "$1" "$2" "$5"
> + shift 7
> + done
> +fi
> diff --git a/git-difftool.perl b/git-difftool.perl
> index aba3d2f..7211f1e 100755
> --- a/git-difftool.perl
> +++ b/git-difftool.perl
> @@ -1,21 +1,31 @@
> -#!/usr/bin/env perl
> +#!/usr/bin/perl
> # Copyright (c) 2009, 2010 David Aguilar
> +# Copyright (c) 2012 Tim Henigan
> #
> # This is a wrapper around the GIT_EXTERNAL_DIFF-compatible
> # git-difftool--helper script.
> #
> # This script exports GIT_EXTERNAL_DIFF and GIT_PAGER for use by git.
> -# GIT_DIFFTOOL_NO_PROMPT, GIT_DIFFTOOL_PROMPT, and GIT_DIFF_TOOL
> -# are exported for use by git-difftool--helper.
> +# The GIT_DIFF* variables are exported for use by git-difftool--helper.
> #
> # Any arguments that are unknown to this script are forwarded to 'git diff'.
>
> use 5.008;
> use strict;
> use warnings;
> +use File::Basename qw(dirname);
> +use File::Copy;
> +use File::stat;
> +use File::Path qw(mkpath);
> +use File::Temp qw(tempdir);
> use Getopt::Long qw(:config pass_through);
> use Git;
>
> +my @working_tree;
> +my $rc;
> +my $repo = Git->repository();
> +my $repo_path = $repo->repo_path();
> +
> sub usage
> {
> my $exitcode = shift;
> @@ -24,15 +34,202 @@ usage: git difftool [-t|--tool=<tool>]
> [-x|--extcmd=<cmd>]
> [-g|--gui] [--no-gui]
> [--prompt] [-y|--no-prompt]
> + [-d|--dir-diff]
> ['git diff' options]
> USAGE
> exit($exitcode);
> }
>
> +sub find_worktree
> +{
> + # Git->repository->wc_path() does not honor changes to the working
> + # tree location made by $ENV{GIT_WORK_TREE} or the 'core.worktree'
> + # config variable.
> + my $worktree;
> + my $env_worktree = $ENV{GIT_WORK_TREE};
> + my $core_worktree = Git::config('core.worktree');
> +
> + if (defined($env_worktree) and (length($env_worktree) > 0)) {
> + $worktree = $env_worktree;
> + } elsif (defined($core_worktree) and (length($core_worktree) > 0)) {
> + $worktree = $core_worktree;
> + } else {
> + $worktree = $repo->wc_path();
> + }
> +
> + return $worktree;
> +}
> +
> +my $workdir = find_worktree();
> +
> +sub setup_dir_diff
> +{
> + # Run the diff; exit immediately if no diff found
> + # 'Repository' and 'WorkingCopy' must be explicitly set to insure that
> + # if $GIT_DIR and $GIT_WORK_TREE are set in ENV, they are actually used
> + # by Git->repository->command*.
> + my $diffrepo = Git->repository(Repository => $repo_path, WorkingCopy => $workdir);
> + my $diffrtn = $diffrepo->command_oneline('diff', '--raw', '--no-abbrev', '-z', @ARGV);
> + exit(0) if (length($diffrtn) == 0);
> +
> + if ($diffrtn =~ /::/) {
> + print "Combined diff formats ('-c' and '--cc') are not supported in directory diff mode.\n";
Can't a pathname happen to have these two-letter sequence? /^::/ perhaps?
Also what does "command_oneline()" return, when there is a file with LF
in their pathname?
> + exit(1);
> + }
> +
> + # Setup temp directories
> + my $tmpdir = tempdir('git-diffall.XXXXX', CLEANUP => 1, TMPDIR => 1);
> + my $ldir = "$tmpdir/left";
> + my $rdir = "$tmpdir/right";
> + mkpath($ldir) or die $!;
> + mkpath($rdir) or die $!;
> +
> + # Build index info for left and right sides of the diff
> + my $submodule_mode = "160000";
> + my $symlink_mode = "120000";
> + my $null_mode = "0" x 6;
> + my $null_sha1 = "0" x 40;
> + my $lindex = "";
> + my $rindex = "";
> + my %submodule;
> + my %symlink;
> + my @rawdiff = split(':', $diffrtn);
> + for (my $i=1; $i<@rawdiff; $i++) {
Huh? Can't a pathname happen to have ':' in it? This really is not the
way to parse --raw -z format. Cut them into tokens at '\0' boundary
first, and decide how many paths there are when interpreting the status
field, to collect one record worth of NUL-delimited tokens, and then
process.
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: [PATCH v14 8/9] difftool: teach difftool to handle directory diffs
2012-04-20 16:56 [PATCH v14 8/9] difftool: teach difftool to handle directory diffs Tim Henigan
2012-04-20 20:54 ` Junio C Hamano
@ 2012-04-21 23:07 ` David Aguilar
1 sibling, 0 replies; 3+ messages in thread
From: David Aguilar @ 2012-04-21 23:07 UTC (permalink / raw)
To: Tim Henigan; +Cc: gitster, git, ramsay
On Fri, Apr 20, 2012 at 9:56 AM, Tim Henigan <tim.henigan@gmail.com> wrote:
> [snip]
> +
> +sub setup_dir_diff
> +{
> + # Run the diff; exit immediately if no diff found
> + # 'Repository' and 'WorkingCopy' must be explicitly set to insure that
> + # if $GIT_DIR and $GIT_WORK_TREE are set in ENV, they are actually used
> + # by Git->repository->command*.
> + my $diffrepo = Git->repository(Repository => $repo_path, WorkingCopy => $workdir);
> + my $diffrtn = $diffrepo->command_oneline('diff', '--raw', '--no-abbrev', '-z', @ARGV);
> + exit(0) if (length($diffrtn) == 0);
> +
> + if ($diffrtn =~ /::/) {
> + print "Combined diff formats ('-c' and '--cc') are not supported in directory diff mode.\n";
> + exit(1);
> + }
> +
> + # Setup temp directories
> + my $tmpdir = tempdir('git-diffall.XXXXX', CLEANUP => 1, TMPDIR => 1);
> + my $ldir = "$tmpdir/left";
> + my $rdir = "$tmpdir/right";
> + mkpath($ldir) or die $!;
> + mkpath($rdir) or die $!;
> +
> + # Build index info for left and right sides of the diff
> + my $submodule_mode = "160000";
> + my $symlink_mode = "120000";
> + my $null_mode = "0" x 6;
> + my $null_sha1 = "0" x 40;
> + my $lindex = "";
> + my $rindex = "";
Super super tiny nit....
When reading Perl I expect to see DQ used only when $variable
interpolation is used. Can we use ' instead of " for these strings in
the re-roll to address Junio's notes?
--
David
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2012-04-21 23:07 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2012-04-20 16:56 [PATCH v14 8/9] difftool: teach difftool to handle directory diffs Tim Henigan
2012-04-20 20:54 ` Junio C Hamano
2012-04-21 23:07 ` David Aguilar
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.