diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive/TLPSRC.pm')
| -rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLPSRC.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLPSRC.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLPSRC.pm index 9ec15c1452..829197fde5 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLPSRC.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLPSRC.pm @@ -1,4 +1,4 @@ -# $Id: TLPSRC.pm 63068 2022-04-18 05:58:07Z preining $ +# $Id: TLPSRC.pm 64018 2022-07-31 22:04:01Z karl $ # TeXLive::TLPSRC.pm - module for handling tlpsrc files # Copyright 2007-2021 Norbert Preining # This file is licensed under the GNU General Public License version 2 @@ -14,7 +14,7 @@ use TeXLive::TLUtils; use TeXLive::TLPOBJ; use TeXLive::TLTREE; -my $svnrev = '$Revision: 63068 $'; +my $svnrev = '$Revision: 64018 $'; my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown"; sub module_revision { return $_modulerevision; } @@ -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). |