1*0Sstevel@tonic-gate#!./perl 2*0Sstevel@tonic-gate 3*0Sstevel@tonic-gate$skip_amp = 1; 4*0Sstevel@tonic-gatefor $file ('./op/regexp.t', './t/op/regexp.t', ':op:regexp.t') { 5*0Sstevel@tonic-gate if (-r $file) { 6*0Sstevel@tonic-gate do $file; 7*0Sstevel@tonic-gate exit; 8*0Sstevel@tonic-gate } 9*0Sstevel@tonic-gate} 10*0Sstevel@tonic-gatedie "Cannot find ./op/regexp.t or ./t/op/regexp.t\n"; 11