diff options
Diffstat (limited to 'Master/tlpkg/bin/c2l')
-rwxr-xr-x | Master/tlpkg/bin/c2l | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Master/tlpkg/bin/c2l b/Master/tlpkg/bin/c2l index ea1fbbd14c4..748fa7569bd 100755 --- a/Master/tlpkg/bin/c2l +++ b/Master/tlpkg/bin/c2l @@ -15,13 +15,17 @@ umask 022; exit (&main ()); sub main { + my $arg = $ARGV[0]; + if ($arg =~ m!/!) { + die "$0: argument must not contain /: $arg\n"; + } + my $real0 = Cwd::abs_path ($0); my $scriptdir = File::Basename::dirname ($real0); # .../Master/tlpkg/bin my $TLROOT = Cwd::abs_path ("$scriptdir/../../.."); # ... chdir ($scriptdir) || die "chdir($scriptdir) failed"; # avoid . in PATH confusion # platform abbrev - (my $arg = $ARGV[0]) =~ s,/$,,; # ignore trailing / if ($arg eq "asy") { exec ("tl-update-asy --build"); } elsif ($arg eq "aarch") { |