update-index --split-index: do not split if $GIT_DIR is read only

[git] / t / t4018 / perl-sub-definition

sub RIGHT {
        my ($n) = @_;
        print "ChangeMe";
}