xref: /openbsd-src/gnu/usr.bin/perl/t/re/regexp_noamp.t (revision 898184e3e61f9129feb5978fad5a8c6865f00b92)
1#!./perl
2
3# Doesn't look at the expect field if it contains $&.
4
5$skip_amp = 1;
6for $file ('./re/regexp.t', './t/re/regexp.t', ':re:regexp.t') {
7  if (-r $file) {
8    do $file or die $@;
9    exit;
10  }
11}
12die "Cannot find ./re/regexp.t or ./t/re/regexp.t\n";
13