perl5005delta
perl5004delta
+ perlaix
perlamiga
perlcygwin
perldos
+ perlepoc
perlhpux
perlmachten
perlos2
perlos390
perlposix-bc
perlvms
+ perlvos
perlwin32
);
@ARCHPODS = qw(
+ perlaix
perlamiga
perlcygwin
perldos
+ perlepoc
perlhpux
perlmachten
perlos2
perlos390
perlposix-bc
perlvms
+ perlvos
perlwin32
);
for (@ARCHPODS) { s/$/.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;