Stash local changes before doing `git svn rebase`

gsrebase.pl

#!/usr/bin/env perl
# Drew Stephens <drew@dinomite.net>
# 2010-12-17
#
# Stash local changes before doing `git svn rebase`
use strict;
use warnings;

my $applyStash = 0;

my $stashName = "gsrebase " . `date`;
my $stash = `git stash save $stashName`;
chomp $stash;

if ($stash ne 'No local changes to save') {
    print "Stashing local uncommited changes\n";
    $applyStash = 1;
}

system('git svn rebase');

if ($applyStash == 1) {
    print "Applying stash of local uncommited changes\n";
    system('git stash pop');
}

When I do this with git pull, I like to call this a dirty pull!