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

#!perl -wT

for $file ('re/subst.t', 't/re/subst.t', ':re:subst.t') {
  if (-r $file) {
    do "./$file";
    exit;
  }
}
die "Cannot find re/subst.t or t/re/subst.t\n";
Commit	Line	Data
a4499558 YO	1	#!perl -wT
	2
	3	for $file ('re/subst.t', 't/re/subst.t', ':re:subst.t') {
	4	if (-r $file) {
	5	do "./$file";
	6	exit;
	7	}
	8	}
	9	die "Cannot find re/subst.t or t/re/subst.t\n";