+ if ($pat =~ /^(Err)?Regex:(.*)$/) {
+ my ($type, $regex) = ($1, $2);
+ next if ($regex eq "");
+ if (defined($type)) {
+ # This regex should not apply until next 'found line'
+ my $erlines = () = $regex =~ /\\n/g;
+ $minprevlines = $erlines if ($erlines > $minprevlines);
+ push(@ErrPatterns, $regex);
+ next;
+ }
+ else {
+ # This is the pattern which we are looking for
+ $pat = $regex;
+ }
+ }