diff options
author | Karl Berry <karl@freefriends.org> | 2023-08-16 20:39:14 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2023-08-16 20:39:14 +0000 |
commit | b9628b2210cd20dba39fa1a3ed28781dd845868d (patch) | |
tree | dff9fca7d28f67eadbf45430c4129b533972d482 /Master/tlpkg/bin/c2l | |
parent | 026366f96047725124e312cd3667f6ee7ff5f407 (diff) |
panneauxroute missed
git-svn-id: svn://tug.org/texlive/trunk@67951 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/c2l')
-rwxr-xr-x | Master/tlpkg/bin/c2l | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/bin/c2l b/Master/tlpkg/bin/c2l index 30666ed7250..263f35c01ef 100755 --- a/Master/tlpkg/bin/c2l +++ b/Master/tlpkg/bin/c2l @@ -16,8 +16,8 @@ exit (&main ()); sub main { my $arg = $ARGV[0]; - if ($arg =~ m!/!) { - die "$0: argument must not contain /: $arg\n"; + if ($arg =~ m![^a-z0-9-_]!) { + die "$0: package name must contain only a-z0-9-_: $arg\n"; } my $real0 = Cwd::abs_path ($0); |