- my ($sfx, $fn) = @_;
- my @cmd = (@git, qw(diff-tree -z --name-only));
- push @cmd "$_:$sfx" foreach $x, $y;
+ my ($opts, $sfx, $fn) = @_;
+ $opts //= [qw(--name-only)];
+ my @cmd = (@git, qw(diff-tree -z --no-renames));
+ push @cmd, @$opts;
+ push @cmd, "$_:$sfx" foreach $x, $y;