foreach qw() { # not valid syntax for 5.005. So fix it.

p4raw-id: //depot/perl@21893

diff --git a/pod/buildtoc b/pod/buildtoc
index 4f9e684..4d61eab 100644 (file)
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -597,7 +597,7 @@ sub do_perlpod {
 sub do_podmak {
   my $name = shift;
   my $body = join '', @_;
-  foreach my $variable qw(pod man html tex) {
+  foreach my $variable (qw(pod man html tex)) {
     die "$0: could not find $variable in $name"
       unless $body =~ s{\n\U$variable\E = (?:[^\n]*\\\n)*[^\n]*}
        {"\n" . generate_pod_mak ($variable)}se;