Репозитории ALT
S: | 2.001-alt4 |
5.1: | 2.001-alt1 |
4.1: | 2.001-alt1 |
4.0: | 2.001-ipl4 |
3.0: | 2.001-ipl4 |
Группа :: Разработка/Прочее
Пакет: sdf
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: sdf-2.001-deb-pod_man_conventions.patch
Скачать
Скачать
diff -urN sdf-2.001.orig/perllib/sdf/topod.pl sdf-2.001/perllib/sdf/topod.pl
--- sdf-2.001.orig/perllib/sdf/topod.pl Wed Apr 28 17:39:11 1999
+++ sdf-2.001/perllib/sdf/topod.pl Sun Feb 3 02:02:12 2002
@@ -450,7 +450,21 @@
# For headings, map the tag to a command
if ($tag =~ /^head/) {
- return "=$tag $text\n";
+ if ($SDF_USER'var{'MAN_CONVENTIONS'}) {
+ if ($tag =~ /^head1/ && !$seen_name) {
+ $seen_name = 1;
+ return "=$tag NAME\n\n$text\n";
+ }
+ elsif ($tag =~ /^head2/) {
+ return "=head1 \U$text\E\n";
+ }
+ else {
+ return "=$tag $text\n";
+ }
+ }
+ else {
+ return "=$tag $text\n";
+ }
}
# Otherwise, format as a plain paragraph