From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 13 Dec 2003 17:40:32 +0000 (+0000)
Subject: foreach qw() { # not valid syntax for 5.005. So fix it.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d525b9bcd92b1f03636e9bd59ae526cc52792c4c;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;