diff options
author | Karl Berry <karl@freefriends.org> | 2017-12-10 00:37:15 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2017-12-10 00:37:15 +0000 |
commit | 7f482c1d7398183c5d8c074326ad8023fe2f5166 (patch) | |
tree | 6e5bce471b29876dd8587753c82dd8d62eaf305f /Build/source/texk/texlive/linked_scripts/texdef | |
parent | 3a96dfe1775079b04b8fcfd108d2747bea3f835f (diff) |
texdef (9dec17)
git-svn-id: svn://tug.org/texlive/trunk@46028 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/texlive/linked_scripts/texdef')
-rwxr-xr-x | Build/source/texk/texlive/linked_scripts/texdef/texdef.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Build/source/texk/texlive/linked_scripts/texdef/texdef.pl b/Build/source/texk/texlive/linked_scripts/texdef/texdef.pl index 2f42e46ded3..f29efd79ddf 100755 --- a/Build/source/texk/texlive/linked_scripts/texdef/texdef.pl +++ b/Build/source/texk/texlive/linked_scripts/texdef/texdef.pl @@ -115,14 +115,14 @@ my $ISCONTEXT = 0; my $BEGINENVSTR = '%s'; my $ENDENVSTR = '%s'; -my $VERSION = 'Version 1.7b -- 2012/05/15'; +my $VERSION = 'Version 1.7c -- 2017/12/09'; sub usage { my $option = shift; my $ret = ($option) ? 0 : 1; print << 'EOT'; texdef -- Show definitions of TeX commands -Version 1.7b -- 2012/05/15 -Copyright (C) 2011-2012 Martin Scharrer <martin@scharrer-online.de> +Version 1.7c -- 2017/12/09 +Copyright (C) 2011-2017 Martin Scharrer <martin@scharrer-online.de> This program comes with ABSOLUTELY NO WARRANTY; This is free software, and you are welcome to redistribute it under certain conditions; @@ -388,10 +388,10 @@ sub testdef { my $protectedmacro = $2; unshift @cmds, $protectedmacro; } - elsif ($macrodef =~ /^\\\@protected\@testopt {?\\.*? }? *(\\\\.*?) /) { + elsif ($macrodef =~ /^\\\@protected\@testopt \{?\\.*? \}? *(\\\\.*?) /) { unshift @cmds, $1; } - elsif ($macrodef =~ /^\\\@testopt {?(\\.*?) }?/) { + elsif ($macrodef =~ /^\\\@testopt \{?(\\.*?) \}?/) { unshift @cmds, $1; } } |