X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FFile%2FTree%2FSnapshot.pm;h=3962e2185ab3366258897d53c1373d5013608caf;hb=e47d4988071c1568bdb83fcbabe963b2cd5c52f3;hp=005a7c9f2671aede80c4ed9b36f146d53924dbf1;hpb=3e82afa2fb98b472b95247f71927a9c8bd6ade9c;p=scpubgit%2FFile-Tree-Snapshot.git

diff --git a/lib/File/Tree/Snapshot.pm b/lib/File/Tree/Snapshot.pm
index 005a7c9..3962e21 100644
--- a/lib/File/Tree/Snapshot.pm
+++ b/lib/File/Tree/Snapshot.pm
@@ -63,7 +63,7 @@ sub create {
 sub _has_changes {
     my ($self) = @_;
     my $path = $self->storage_path;
-    my $cmd = qq{cd $path && git diff --name-only --cached};
+    my $cmd = qq{cd $path && git status --porcelain};
     CORE::open my $handle, '-|', $cmd
       or die "Unable to find changes in ($cmd): $!\n";
     my @changes = <$handle>;