Perl5Compiler.SINGLELINE_MASK | Perl5Compiler.CASE_INSENSITIVE_MASK);
} catch(MalformedPatternException e) {
System.err.println("LinkSearch.HtmlParser.match: Bad pattern: `" + e.getMessage() + "�.");
//@@@ System.exit(1);
//@@@ Make this cleaner some day.
throw new ProgrammerException("LinkSearch.HtmlParser.match: Bad pattern: `" + e.getMessage() + "�.");
}
input = new PatternMatcherInput(text);
// For debugging purposes.
// KFMSystem.log.debug( text);