Documentation: Fix references to deprecated commands

[git.git] / git-svn.perl

diff --git a/git-svn.perl b/git-svn.perl
index dd93e320a7c0d20e8eec1c171c9c96a32ced406b..1e244975abe1b41f10a784dc1e7869ee38efbfc3 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -390,6 +390,9 @@ sub cmd_set_tree {
 
 sub cmd_dcommit {
        my $head = shift;
+       git_cmd_try { command_oneline(qw/diff-index --quiet HEAD/) }
+               'Cannot dcommit with a dirty index.  Commit your changes first'
+               . "or stash them with `git stash'.\n";
        $head ||= 'HEAD';
        my @refs;
        my ($url, $rev, $uuid, $gs) = working_head_info($head, \@refs);