summaryrefslogtreecommitdiff
path: root/textproc
diff options
context:
space:
mode:
authorwiz <wiz@pkgsrc.org>2013-03-06 22:09:01 +0000
committerwiz <wiz@pkgsrc.org>2013-03-06 22:09:01 +0000
commitb373a476ba9dc8718c071b0f87686489e5e05aab (patch)
tree20e40cba69c3333d7405c715a61a02263af379d0 /textproc
parent39de5c857dd5f6a9aacbbab94738a49c7b8f7505 (diff)
downloadpkgsrc-b373a476ba9dc8718c071b0f87686489e5e05aab.tar.gz
Do not warn about () in literal strings or when used as macro argument.
Ride bump.
Diffstat (limited to 'textproc')
-rwxr-xr-xtextproc/mdoclint/files/mdoclint4
1 files changed, 2 insertions, 2 deletions
diff --git a/textproc/mdoclint/files/mdoclint b/textproc/mdoclint/files/mdoclint
index 23a6e3f404f..d50fdc2bfca 100755
--- a/textproc/mdoclint/files/mdoclint
+++ b/textproc/mdoclint/files/mdoclint
@@ -1,7 +1,7 @@
#!@PERL5@
#
# $OpenBSD: mdoclint,v 1.14 2009/04/13 12:40:05 espie Exp $
-# $NetBSD: mdoclint,v 1.23 2013/03/06 21:43:43 wiz Exp $
+# $NetBSD: mdoclint,v 1.24 2013/03/06 22:09:01 wiz Exp $
#
# Copyright (c) 2001-2013 Thomas Klausner
# All rights reserved.
@@ -542,7 +542,7 @@ sub process_line
if (/^\./o and /Ns [\.();,\[\]\{\}:]/o) {
$s->warning("possible Ns abuse: `$_'") if $opt_p;
}
- if (/(\w+)\(\)/o) {
+ if ((/^([^\.]\w+)\(\)/o or /^[^\.].*\s(\w+)\(\)/o) and not $s->{inliteral}) {
$s->warning("use .Fn or .Xr for functions: `$1()'") if $opt_p;
}