smart-change: Add new --modified and --commit options

This should help work off the VCS.

The --modified option helps with the following workflow:

  1) Modify english version; commit.
  2) Modify translations; use smart_change with -m; commit.

The --commit option helps with the following workflow:

  1) Modify english version; commit.
  2) Modify translations; commit.
  3) Use smart_change with -c from 2); commit.

1 files changed, 32 insertions, 0 deletions

diff --git a/Perl/Local/VCS_git.pm b/Perl/Local/VCS_git.pm
index 9bbb17988f8..7f67d9f17e4 100644
--- a/Perl/Local/VCS_git.pm
+++ b/Perl/Local/VCS_git.pm
@@ -1268,6 +1268,38 @@ sub next_revision
 	return $ret;
 }
 
+=item @files = get_modified_files_from_worktree()
+
+Returns a list of modified files in the current worktree.
+
+=cut
+
+sub get_modified_files_from_worktree
+{
+	my $self = shift;
+
+	my (@files) = qx(git ls-files -m);
+	chomp @files;
+
+	return @files;
+}
+
+=item @files = get_modified_files_from_revision($revid)
+
+Returns a list of modified files in $revid.
+
+=cut
+
+sub get_modified_files_from_revision
+{
+	my ($self, $rev) = @_;
+
+	my (@files) = qx(git diff-tree --no-commit-id --name-only --diff-filter=M -r $rev);
+	chomp @files;
+
+	return @files;
+}
+
 =item get_topdir
 
 Return the top dir of the webwml repository