From: Thomas Glanzmann <hidden> Date: 2016-06-15 22:41:58
Hello,
this is better (it strips the colon from the first mode):
sub
process_git_diff_output
{
my $str = shift || die("Need Input");
my @in = split("\0", $str);
my @out = ();
while (@in) {
my @tmp = split(' ', shift(@in));
$tmp[0] =~ s/^://g;
push(@tmp, shift(@in), shift(@in));
push(@out, [@tmp]);
}
return(@out);
}
Thomas