summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-05-04 23:36:23 +0000
committerKarl Berry <karl@freefriends.org>2015-05-04 23:36:23 +0000
commit8d189a92974f4ac0877b6b83d79a3c420d24b09b (patch)
treecf43a17fc3ce12b2ba0cf0ab42dafb8c094fc1fe
parent2501a1309a59abf417d4c1c0307c0e95704b5fa2 (diff)
remove # by itself at end of line too
git-svn-id: svn://tug.org/texlive/trunk@37190 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/fmtutil.pl3
1 files changed, 2 insertions, 1 deletions
diff --git a/Master/texmf-dist/scripts/texlive/fmtutil.pl b/Master/texmf-dist/scripts/texlive/fmtutil.pl
index d7e43e338af..dbcb0fefb13 100755
--- a/Master/texmf-dist/scripts/texlive/fmtutil.pl
+++ b/Master/texmf-dist/scripts/texlive/fmtutil.pl
@@ -756,7 +756,8 @@ sub read_fmtutil_file {
next if /^\s*#?\s*$/; # ignore empty and all-blank and just-# lines
next if /^\s*#[^!]/; # ignore whole-line comment that is not a disable
s/#[^!].*//; # remove within-line comment that is not a disable
- my ($a, $b, $c, @rest) = split ' '; # special split rule, leading ws ign
+ s/#$//; # remove # at end of line
+ my ($a,$b,$c,@rest) = split (' '); # special split rule, leading ws ign
my $disabled = 0;
if ($a eq "#!") {
# we cannot determine whether a line is a proper fmtline or