diff options
| author | Karl Berry <karl@freefriends.org> | 2015-05-04 23:36:23 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2015-05-04 23:36:23 +0000 |
| commit | 8d189a92974f4ac0877b6b83d79a3c420d24b09b (patch) | |
| tree | cf43a17fc3ce12b2ba0cf0ab42dafb8c094fc1fe | |
| parent | 2501a1309a59abf417d4c1c0307c0e95704b5fa2 (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-x | Master/texmf-dist/scripts/texlive/fmtutil.pl | 3 |
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 |