die "modified symlink\n" unless $newmode =~ m/^10/;
} elsif ($oldmode =~ m/[^0]/) {
# deletion
- die "non-default mode or type\n"
- unless $newmode =~ m/^100644$/ ||
- $oldmode =~ m/^100644$/;
+ die "deletion of symlink\n"
+ unless $oldmode =~ m/^10/;
} else {
# creation
die "non-default mode or type\n"