diff options
author | Florian Ragwitz <rafl@debian.org> | 2011-07-12 23:51:38 +0200 |
---|---|---|
committer | Florian Ragwitz <rafl@debian.org> | 2011-07-12 23:52:30 +0200 |
commit | 68a9cf1a90f1a8fed74fdd419ad1ec538439e1c8 (patch) | |
tree | 3481a10bc411c6b1cb3e8d4ab598524c8d79722c /pod/buildtoc | |
parent | 3214bedba346419c3021faa94d16724f686829cd (diff) | |
download | perl-68a9cf1a90f1a8fed74fdd419ad1ec538439e1c8.tar.gz |
Stop buildtoc from generating trailing whitespace
In win32/pod.mak, at least.
Diffstat (limited to 'pod/buildtoc')
-rw-r--r-- | pod/buildtoc | 4 |
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; |