@@ -1,7 +1,7 @@
#!@PERL5@
#
# $OpenBSD: mdoclint,v 1.14 2009/04/13 12:40:05 espie Exp $
-# $NetBSD: mdoclint,v 1.34 2013/07/30 18:37:56 wiz Exp $
+# $NetBSD: mdoclint,v 1.35 2013/07/30 18:46:29 wiz Exp $
#
# Copyright (c) 2001-2013 Thomas Klausner
# All rights reserved.
@@ -637,8 +637,8 @@
/^\.Bl\s+/o and $s->{last_error_name} = "";
if ($s->{current_section_header} eq "ERRORS" and
- /^\.It\s+Bq\s+Er\s+(E[\w_]+)$/o) {
- my $current_error_name = $1;
+ /^\.It\s+(Bq\s+)?(Er\s+)?(E[\w_]+)$/o) {
+ my $current_error_name = $3;
if ($s->{last_error_name} eq $current_error_name) {
$s->warning("Duplicate item for ",