diff options
author | Karl Berry <karl@freefriends.org> | 2022-07-31 22:04:01 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2022-07-31 22:04:01 +0000 |
commit | 922f458bb1098d6f4b8150c828126bd9cd400663 (patch) | |
tree | 5fc51ca7b88558279a4d49557d1f0d0137fd45d1 /Master/tlpkg | |
parent | c7df6a43cb755f44754f44aa522aa78de0096269 (diff) |
(from_file): remove trailing in-line comments,
that is \s+#.*$ (at present there aren't any in *.tlpsrc,
so this should have no effect).
git-svn-id: svn://tug.org/texlive/trunk@64018 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPSRC.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLPSRC.pm b/Master/tlpkg/TeXLive/TLPSRC.pm index 0a1146386ac..f6f88d12172 100644 --- a/Master/tlpkg/TeXLive/TLPSRC.pm +++ b/Master/tlpkg/TeXLive/TLPSRC.pm @@ -131,7 +131,10 @@ sub from_file { $line =~ /^ / && die "$srcfile:$lineno: non-continuation indentation not allowed: `$line'"; # - # remove trailing white space. + # remove trailing comment (whitespace preceding #). + $line =~ s/\s+#.*$//; + # + # remove other trailing white space. $line =~ s/\s+$//; # expand tlpvars while reading in (except in descriptions). |