mirror of
https://github.com/Perl/perl5.git
synced 2026-01-26 16:39:36 +00:00
1ae6ead949
Switch from two-argument form. Filehandle cloning is still done with the two argument form for backward compatibility. Committer: Get all porting tests to pass. Increment some $VERSIONs. Run: ./perl -Ilib regen/mk_invlists.pl; ./perl -Ilib regen/regcharclass.pl For: RT #130122
47 lines
644 B
Perl
47 lines
644 B
Perl
#!/usr/bin/perl
|
|
|
|
while (<>) {
|
|
if ($seqno = 1 .. /^\.TH/) {
|
|
unless ($seqno =~ /e/i) {
|
|
$header .= $_;
|
|
}
|
|
next;
|
|
}
|
|
|
|
if ( /^\.Ip\s*"(.*)"\s*\d+$/) {
|
|
$desking = 0;
|
|
$desc = $1;
|
|
if (name($desc) ne $myname) {
|
|
$myname = name($desc);
|
|
print $myname, "\n";
|
|
open(MAN, '>', "$myname.3pl");
|
|
print MAN <<EOALL;
|
|
$header
|
|
.TH $myname 3PL "\\*(RP"
|
|
.SH NAME
|
|
$myname
|
|
.SH SYNOPSIS
|
|
.B $desc
|
|
EOALL
|
|
} else {
|
|
print MAN <<EOMORE;
|
|
.br
|
|
.ti +3n
|
|
or
|
|
.br
|
|
.B $desc
|
|
EOMORE
|
|
}
|
|
next;
|
|
}
|
|
unless ($desking) {
|
|
print MAN ".SH DESCRIPTION\n";
|
|
$desking = 1;
|
|
}
|
|
print MAN;
|
|
}
|
|
|
|
sub name {
|
|
($_[0] =~ /(\w+)/)[0];
|
|
}
|