texlive[61361] Master/tlpkg/libexec/place: explicit call to construct

[commits+karl at tug.org]

Revision: 61361
          http://tug.org/svn/texlive?view=revision&revision=61361
Author:   karl
Date:     2021-12-20 23:35:08 +0100 (Mon, 20 Dec 2021)
Log Message:
-----------
explicit call to construct for use strict; else
get (confusingly, error is reported as coming from TLPSRC):
Can't use string ("TeXLive::TLPSRC") as a HASH ref while "strict refs" in use at /home/texlive/karl/Master/tlpkg/libexec/../TeXLive/TLPSRC.pm line 664.

Useful explanation:
https://perlmaven.com/cant-use-string-as-a-hash-ref-while-strict-refs-in-use

Modified Paths:
--------------
    trunk/Master/tlpkg/libexec/place

Modified: trunk/Master/tlpkg/libexec/place
===================================================================
--- trunk/Master/tlpkg/libexec/place	2021-12-20 22:12:39 UTC (rev 61360)
+++ trunk/Master/tlpkg/libexec/place	2021-12-20 22:35:08 UTC (rev 61361)
@@ -122,7 +122,7 @@
 our %Old = &find_old_files ($package, $DEST eq $TOP ? "with-arch" : "");
 
 # create new tlpsrc.
-my $tlpsrc = TeXLive::TLPSRC;
+my $tlpsrc = TeXLive::TLPSRC->new ();
 my $tlpsrcfile = "$M/tlpkg/tlpsrc/$package.tlpsrc";
 if (! -r $tlpsrcfile) {
   $tlpsrc->name($package);