diff options
author | Norbert Preining <norbert@preining.info> | 2022-08-01 03:04:31 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2022-08-01 03:04:31 +0000 |
commit | c7ecdfe2e07e2e010de5e2a8d94c001c5dc9fc27 (patch) | |
tree | 80bdca45c628ce054648b8b6adc4c97d21bd48bb /systems/texlive/tlnet/tlpkg/TeXLive | |
parent | 0d7064c66024537b237407f8b36413b055cf9a9a (diff) |
CTAN sync 202208010304
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive')
-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). |