#!/usr/bin/perl
#
-# $OpenBSD: mdoclint,v 1.70 2017/06/23 19:07:25 schwarze Exp $
+# $OpenBSD: mdoclint,v 1.71 2017/06/23 19:16:49 schwarze Exp $
# $NetBSD: mdoclint,v 1.77 2017/06/08 10:19:56 wiz Exp $
#
# Copyright (c) 2001-2017 Thomas Klausner
if (/^\.Os\s+(.+)/o) {
$s->warning(".Os used with argument `$1'") if $opt_o;
}
- if (/^\... .*[^\s][\.();,\[\]\{\}:]$/o
- and not /\s\.\.\.$/o and not /\\&.$/o) {
- $s->warning("punctuation in format string ",
- "without space: `$_'") if $opt_p;
- }
if (/^\./o and /Ns [\.();,\[\]\{\}:]/o) {
$s->warning("possible Ns abuse: `$_'") if $opt_p;
}
-.\" $OpenBSD: mdoclint.1,v 1.28 2017/06/23 19:07:25 schwarze Exp $
+.\" $OpenBSD: mdoclint.1,v 1.29 2017/06/23 19:16:49 schwarze Exp $
.\" $NetBSD: mdoclint.1,v 1.23 2017/06/08 10:19:56 wiz Exp $
.\"
.\" Copyright (c) 2001-2013 Thomas Klausner
.Ox
the current version is default).
.It Fl p
-Warn about possible punctuation problems at the end of macro arguments
-and abuse of .Ns to get punctuation directly next to a word.
+Warn about abuse of .Ns to get punctuation directly next to a word.
.It Fl S
Warn about any unknown sections or about a section that comes in the
wrong order (see