perlopentut
perlretut
- perlref
perlre
+ perlref
+
perlform
- perllocale
- perlunicode
+
+ perlboot
+ perltoot
+ perltootc
+ perlobj
+ perlbot
+ perltie
perlipc
perlfork
perlthrtut
perlport
- perlsec
+ perllocale
+ perlunicode
+ perlebcdic
- perlboot
- perltoot
- perltootc
- perlobj
- perlbot
- perltie
+ perlsec
perlmod
perlmodlib
perl5005delta
perl5004delta
+ perlaix
perlamiga
perlcygwin
perldos
+ perlepoc
perlhpux
perlmachten
+ perlmpeix
perlos2
perlos390
perlposix-bc
+ perlsolaris
perlvms
+ perlvos
perlwin32
);
@ARCHPODS = qw(
+ perlaix
perlamiga
perlcygwin
perldos
+ perlepoc
perlhpux
perlmachten
+ perlmpeix
perlos2
perlos390
perlposix-bc
+ perlsolaris
perlvms
+ perlvos
perlwin32
);
for (@ARCHPODS) { s/$/.pod/ }
Here should be listed all the extra programs' documentation, but they
don't all have manual pages yet:
- =over
+ =over 4
=item a2p
}
if (s/^=head1 (.*)/=item $1/) {
unhead2();
- output "=over\n\n" unless $inhead1;
+ output "=over 4\n\n" unless $inhead1;
$inhead1 = 1;
output $_; nl(); next;
}
if (s/^=head2 (.*)/=item $1/) {
unitem();
- output "=over\n\n" unless $inhead2;
+ output "=over 4\n\n" unless $inhead2;
$inhead2 = 1;
output $_; nl(); next;
}
s/\s+$//;
next if /^[\d.]+$/;
next if $pod eq 'perlmodlib' && /^ftp:/;
- ##print "=over\n\n" unless $initem;
+ ##print "=over 4\n\n" unless $initem;
output ", " if $initem;
$initem = 1;
s/\.$//;
!NO!SUBS!
+close OUT or die "Can't close $file: $!";
+chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
+exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
+chdir $origdir;