my %changed;
my %deleted;
my $nullsha = 0 x 40;
- my $newrev;
+ my $newrev=$oldrev;
while (my $ci = parse_diff_tree(\@raw_lines)) {
$newrev=$ci->{sha1};
foreach my $i (@{$ci->{details}}) {
my $file=$i->{file};
- if ($i->{sha1_to} == $nullsha) {
+ if ($i->{sha1_to} eq $nullsha) {
delete $changed{$file};
$deleted{$file}=1;
}