t5411: add basic test cases for proc-receive hook
[git] / t / t4018 / perl-sub-definition
1 sub RIGHT {
2         my ($n) = @_;
3         print "ChangeMe";
4 }