projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
55b01c1
)
foreach qw() { # not valid syntax for 5.005. So fix it.
author
Nicholas Clark
<nick@ccl4.org>
Sat, 13 Dec 2003 17:40:32 +0000
(17:40 +0000)
committer
Nicholas Clark
<nick@ccl4.org>
Sat, 13 Dec 2003 17:40:32 +0000
(17:40 +0000)
p4raw-id: //depot/perl@21893
pod/buildtoc
patch
|
blob
|
history
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;