nroff-scan.pl: verify that references are made with \fI

1 files changed, 6 insertions, 2 deletions

diff --git a/tests/nroff-scan.pl b/tests/nroff-scan.pl
index a70c16b86..393068cd3 100644
--- a/tests/nroff-scan.pl
+++ b/tests/nroff-scan.pl
@@ -64,7 +64,7 @@ sub file {
             my ($pre, $str, $post)=($1, $2, $3);
             if($post ne "P") {
                 print STDERR "error: $f:$line: missing \\fP after $str\n";
-                $errrors++;
+                $errors++;
             }
             if($str =~ /((libcurl|curl)([^ ]*))\(3\)/i) {
                 my $man = "$1.3";
@@ -72,6 +72,10 @@ sub file {
                     print STDERR "error: $f:$line: refering to non-existing man page $man\n";
                     $errors++;
                 }
+                if($pre ne "I") {
+                    print STDERR "error: $f:$line: use \\fI before $str\n";
+                    $errors++;
+                }
             }
         }
         if($l =~ /(curl([^ ]*)\(3\))/i) {
@@ -97,4 +101,4 @@ foreach my $f (@f) {
     file($f);
 }
 
-    exit $errors?1:0;
+exit $errors?1:0;