Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
perl -ne '
BEGIN () {
open PATS, shift @ARGV or die $!;
perl -ne '
BEGIN () {
open PATS, shift @ARGV or die $!;
- $re = join "|", map { chomp; qr{^(?:$_)$} } <PATS>;
+ $re = join "|", map { chomp; qr{^(?:$_)$} }
+ qr{^(?=a)b}, <PATS>;
+ print STDERR "RE $re\n";
}
next if m{$re};
print STDERR "unexpected: $_";
$bad = 1;
}
next if m{$re};
print STDERR "unexpected: $_";
$bad = 1;
- END { die "unexpected, re= $re\n" if $bad; }
+ END { die "unexpected errors\n" if $bad; }