[perl5.git] / t / op / substT.t

#!perl -wT

for $file ('op/subst.t', 't/op/subst.t', ':op:subst.t') {
  if (-r $file) {
    do ($^O eq 'MacOS' ? $file : "./$file");
    exit;
  }
}
die "Cannot find op/subst.t or t/op/subst.t\n";
Commit	Line	Data
25aae3a7 RGS	1	#!perl -wT
	2
	3	for $file ('op/subst.t', 't/op/subst.t', ':op:subst.t') {
	4	if (-r $file) {
	5	do ($^O eq 'MacOS' ? $file : "./$file");
	6	exit;
	7	}
	8	}
	9	die "Cannot find op/subst.t or t/op/subst.t\n";