unpack-trees: pull sparse-checkout pattern reading into a new function

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

sub RIGHT
{
        print "ChangeMe\n";
}