texlive[64018] Master/tlpkg/TeXLive/TLPSRC.pm: (from_file): remove

[commits+karl at tug.org]

Revision: 64018
          http://tug.org/svn/texlive?view=revision&revision=64018
Author:   karl
Date:     2022-08-01 00:04:01 +0200 (Mon, 01 Aug 2022)
Log Message:
-----------
(from_file): remove trailing in-line comments,
that is \s+#.*$ (at present there aren't any in *.tlpsrc,
so this should have no effect).

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLPSRC.pm

Modified: trunk/Master/tlpkg/TeXLive/TLPSRC.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLPSRC.pm	2022-07-31 21:57:09 UTC (rev 64017)
+++ trunk/Master/tlpkg/TeXLive/TLPSRC.pm	2022-07-31 22:04:01 UTC (rev 64018)
@@ -131,7 +131,10 @@
     $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).