Correct more aggressive PR# matching (aka. an "I can write better

regexp's than that....really" commit).
This commit is contained in:
Tim Vanderhoek 1999-01-01 02:42:36 +00:00
parent 49a3085e4b
commit 900fd1e326
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=4003

View file

@ -28,7 +28,7 @@
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
# $Id: cvsweb.cgi,v 1.27 1998-12-30 19:31:43 hoek Exp $
# $Id: cvsweb.cgi,v 1.28 1999-01-01 02:42:36 hoek Exp $
#
@ -327,9 +327,7 @@ sub htmlify {
$string =~ s/>/>/g;
if ($pr) {
$string =~ s|\bpr(\W+[a-z]+/\W*)(\d+)|<A HREF=/cgi/query-pr.cgi?pr=$2>$&</A>|ig ||
$string =~ s|\bpr[:#]?\s*#?(\d+)\b|<A HREF=/cgi/query-pr.cgi?pr=$1>$&</A>|ig ||
$string =~ s!\b(bin|conf|docs|gnu|i386|kern|misc|ports)\/(\d+)\b!<A HREF=/cgi/query-pr.cgi?pr=$2>$&</A>!ig;
$string =~ s!\b((pr[:#]?\s*#?)|((bin|conf|docs|gnu|i386|kern|misc|ports)\/))(\d+)\b!<A HREF=/cgi/query-pr.cgi?pr=\5>$&</A>!ig;
}
$string;