texlive[71666] Master/tlpkg/bin/tlpkginfo: (copy_to_tmpdir): use $<

[commits+karl at tug.org]

Revision: 71666
          https://tug.org/svn/texlive?view=revision&revision=71666
Author:   karl
Date:     2024-07-01 00:20:03 +0200 (Mon, 01 Jul 2024)
Log Message:
-----------
(copy_to_tmpdir): use $< for multiple users

Modified Paths:
--------------
    trunk/Master/tlpkg/bin/tlpkginfo

Modified: trunk/Master/tlpkg/bin/tlpkginfo
===================================================================
--- trunk/Master/tlpkg/bin/tlpkginfo	2024-06-30 22:18:11 UTC (rev 71665)
+++ trunk/Master/tlpkg/bin/tlpkginfo	2024-06-30 22:20:03 UTC (rev 71666)
@@ -474,7 +474,7 @@
 sub copy_to_tmpdir {
   my ($pkgname,$src) = @_;
   
-  my $pkgdir = "$TMPDIR/tl.$pkgname";
+  my $pkgdir = "$TMPDIR/$<.tl.$pkgname";
   system ("rm -rf $pkgdir");
   mkdir ($pkgdir, 0777) || die "mkdir($pkgdir) failed: $!";