}
@pods = qw(
- perl
- perlfaq
- perltoc
- perlbook
-
- perlsyn
- perldata
- perlop
- perlreftut
- perldsc
- perllol
- perlrequick
- perlretut
-
- perllexwarn
- perldebug
-
- perlrun
- perlfunc
- perlopentut
- perlvar
- perlsub
- perlmod
- perlpod
-
- perlstyle
- perlmodlib
- perlmodinstall
- perlnewmod
- perltrap
- perlport
- perlsec
-
- perlref
- perlre
- perlform
- perllocale
- perlunicode
-
- perlboot
- perltoot
- perltootc
- perlobj
- perlbot
- perltie
-
- perlipc
- perlnumber
- perlfork
- perlthrtut
-
- perldiag
+ perl
+ perlfaq
+ perltoc
+ perlbook
+
+ perlsyn
+ perldata
+ perlop
+ perlsub
+ perlfunc
+ perlreftut
+ perldsc
+ perlrequick
+ perlpod
+ perlstyle
+ perltrap
+
+ perlrun
+ perldiag
+ perllexwarn
+ perldebtut
+ perldebug
+
+ perlvar
+ perllol
+ perlopentut
+ perlretut
+
+ perlre
+ perlref
+
+ perlform
+
+ perlboot
+ perltoot
+ perltootc
+ perlobj
+ perlbot
+ perltie
+
+ perlipc
+ perlfork
+ perlnumber
+ perlthrtut
+
+ perlport
+ perllocale
+ perlunicode
+ perlebcdic
+
+ perlsec
+
+ perlmod
+ perlmodlib
+ perlmodinstall
+ perlnewmod
+
perlfaq1
perlfaq2
perlfaq3
perlmachten
perlos2
perlos390
+ perlposix-bc
perlvms
perlwin32
);
perlmachten
perlos2
perlos390
+ perlposix-bc
perlvms
perlwin32
);
open(PERLPOD, "perl.pod") || die "$0: opening perl.pod failed: $!\n";
while (<PERLPOD>) {
if (/^For ease of access, /../^\(If you're intending /) {
- if (/^\s+(perl\w*)\s+\w/) {
+ if (/^\s+(perl\S*)\s+\w/) {
push @PERLPODS, "$1.pod";
}
}
!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;