dirty, a shell script for showing modified files whether under Git or Subversion.

gistfile1.txt

#!/usr/bin/perl

use warnings;
use strict;

# Try Git.
my @lines = qx{git diff --name-only 2> /dev/null};
if ( $? == 0 ) {
    print for @lines;
    exit 0;
}

# Try Subversion.
@lines = qx/svn status 2>&1/;
exit if @lines == 0;

chomp @lines;
my $first = $lines[0];
if ( $first !~ /svn: warning: .+ not a working copy/ ) {
    @lines = grep { !/^[?D]/ } @lines; # Ignore unversioned and deleted files
    s/^........// for @lines;
    print "$_\n" for @lines;
    exit;
}