diff options
author | Karl Berry <karl@freefriends.org> | 2021-12-20 22:35:08 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2021-12-20 22:35:08 +0000 |
commit | 8bb375368aa88b921556812993147e5b470131c4 (patch) | |
tree | f4201a52cd4b593a1ef8dd9c19e784101938036a /Master/tlpkg/libexec/place | |
parent | 9f696b64c579bf64b25e4898a96cf1f7faea4f51 (diff) |
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
git-svn-id: svn://tug.org/texlive/trunk@61361 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/libexec/place')
-rwxr-xr-x | Master/tlpkg/libexec/place | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Master/tlpkg/libexec/place b/Master/tlpkg/libexec/place index 48ec1fd3fab..947921404d2 100755 --- a/Master/tlpkg/libexec/place +++ b/Master/tlpkg/libexec/place @@ -122,7 +122,7 @@ die "top-level README under $TOP, that can't be right" if <*/README>; 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); |