diff options
author | Richard Leach <richardleach@users.noreply.github.com> | 2021-11-23 23:35:58 +0000 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2021-11-29 10:11:45 +1100 |
commit | 2a98b8cbbc6f75b5aaefb10acc4da4427359fcea (patch) | |
tree | 8a80adaddccc882df24d9656979b67aa8daeba95 /pp_sys.c | |
parent | c80a8618143e98aed6d9e5bbaee16d0308e211d0 (diff) | |
download | perl-2a98b8cbbc6f75b5aaefb10acc4da4427359fcea.tar.gz |
newSVpvn_flags().. is more efficient than sv_2mortal(newSVpvn(..))
The same holds for newSVpvs* wrappers around newSVpvn* functions.
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -946,7 +946,7 @@ PP(pp_tie) else { SV *stashname = !SvPOK(*MARK) ? &PL_sv_no : SvCUR(*MARK) ? *MARK - : sv_2mortal(newSVpvs("main")); + : newSVpvs_flags("main", SVs_TEMP); DIE(aTHX_ "Can't locate object method \"%s\" via package \"%" SVf "\"" " (perhaps you forgot to load \"%" SVf "\"?)", methname, SVfARG(stashname), SVfARG(stashname)); |