This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
foreach qw() { # not valid syntax for 5.005. So fix it.
authorNicholas Clark <nick@ccl4.org>
Sat, 13 Dec 2003 17:40:32 +0000 (17:40 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 13 Dec 2003 17:40:32 +0000 (17:40 +0000)
p4raw-id: //depot/perl@21893

pod/buildtoc

index 4f9e684..4d61eab 100644 (file)
@@ -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;