]> mj.ucw.cz Git - libucw.git/commitdiff
Doc. system: fix semicolons
authorMichal Vaner <vorner@ucw.cz>
Sat, 13 Sep 2008 12:10:50 +0000 (14:10 +0200)
committerMichal Vaner <vorner@ucw.cz>
Sat, 13 Sep 2008 12:10:50 +0000 (14:10 +0200)
They were sometimes missing at the end of one-line headers.

build/doc-extract

index 70de78e66dcc41e69741e0bd83f58f23f317b059..9ce8a3c5e06547e7cf6ae35e8404cabc16b25b9c 100755 (executable)
@@ -52,6 +52,7 @@ sub formatNote( $$ ) {
        chomp $head;
         my( $type, $semicolon, $name, $oneline ) = detect( $head );
        $oneline =~ s/\s+$//;
+       $oneline =~ s/;?$/;/ if( $semicolon );
         $head =~ s/;?\s*$/;/ if( $semicolon );
        $head =~ s/(\.\.\.)/\\$1/g;
        print OUT "[[${type}_$name]]\n";