die "$0: failed to chdir('pod'): $!\n" unless chdir("pod");
}
-@pods = qw(
+@ARCHPODS = qw(
+ perlaix
+ perlapollo
+ perlamiga
+ perlbeos
+ perlbs2000
+ perlce
+ perlcygwin
+ perldgux
+ perldos
+ perlepoc
+ perlhpux
+ perlhurd
+ perlmachten
+ perlmacos
+ perlmint
+ perlmpeix
+ perlnetware
+ perlos2
+ perlos390
+ perlqnx
+ perlplan9
+ perlsolaris
+ perltru64
+ perluts
+ perlvmesa
+ perlvms
+ perlvos
+ perlwin32
+ );
+
+@pods =
+ (
+ qw(
+
perl
perlfaq
perltoc
perlboot
perltoot
- perltootc
+ perltooc
perlobj
perlbot
perltie
perlipc
perlfork
perlnumber
+
perlthrtut
+ perlothrtut
perlport
perllocale
perldebguts
perlxstut
perlxs
+ perlclib
perlguts
perlcall
perlutil
perldbmfilter
perlapi
perlintern
+ perliol
perlapio
perltodo
perlhack
perlhist
perldelta
+ perl572delta
+ perl571delta
+ perl570delta
perl56delta
perl5005delta
perl5004delta
- perlamiga
- perlcygwin
- perldos
- perlhpux
- perlmachten
- perlos2
- perlos390
- perlposix-bc
- perlvms
- perlwin32
- );
+ ),
+
+ @ARCHPODS
+
+ );
-@ARCHPODS = qw(
- perlamiga
- perlcygwin
- perldos
- perlhpux
- perlmachten
- perlos2
- perlos390
- perlposix-bc
- perlvms
- perlwin32
- );
for (@ARCHPODS) { s/$/.pod/ }
@ARCHPODS{@ARCHPODS} = ();
return if /(.*)\.pm$/ && -f "$1.pod";
my $file = $File::Find::name;
return if $file eq '../lib/Pod/Functions.pm'; # Used only by pod itself
+ return if $file =~ m!lib/Attribute/Handlers/demo/!;
die "tut $name" if $file =~ /TUT/;
unless (open (F, "< $_\0")) {
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;