summaryrefslogtreecommitdiff
path: root/pod/buildtoc
diff options
context:
space:
mode:
authorFlorian Ragwitz <rafl@debian.org>2011-07-12 23:51:38 +0200
committerFlorian Ragwitz <rafl@debian.org>2011-07-12 23:52:30 +0200
commit68a9cf1a90f1a8fed74fdd419ad1ec538439e1c8 (patch)
tree3481a10bc411c6b1cb3e8d4ab598524c8d79722c /pod/buildtoc
parent3214bedba346419c3021faa94d16724f686829cd (diff)
downloadperl-68a9cf1a90f1a8fed74fdd419ad1ec538439e1c8.tar.gz
Stop buildtoc from generating trailing whitespace
In win32/pod.mak, at least.
Diffstat (limited to 'pod/buildtoc')
-rw-r--r--pod/buildtoc4
1 files changed, 2 insertions, 2 deletions
diff --git a/pod/buildtoc b/pod/buildtoc
index bc56ec80d8..b0968f1f82 100644
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -626,8 +626,8 @@ sub generate_nmake_2 {
sub generate_pod_mak {
my $variable = shift;
my @lines;
- my $line = join "\\\n", "\U$variable = ",
- map {"\t$_.$variable\t"} sort grep { $_ !~ m{/} } keys %Pods;
+ my $line = "\U$variable = " . join "\t\\\n\t",
+ map {"$_.$variable"} sort grep { $_ !~ m{/} } keys %Pods;
# Special case
$line =~ s/.*perltoc.html.*\n//m;
$line;