diff options
| author | Richard Leach <richardleach@users.noreply.github.com> | 2022-07-28 22:35:24 +0000 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2022-08-05 14:44:12 -0600 |
| commit | 518db96ae536faa5656a7cdc6b3dc510b75edb79 (patch) | |
| tree | 0a339e11a13dc7a5381a2f6b2a7624e83be2f6ae /mro_core.c | |
| parent | e033b0b9c2bf27f70f0267fc75188d4e7d2fc863 (diff) | |
| download | perl-518db96ae536faa5656a7cdc6b3dc510b75edb79.tar.gz | |
Replace sv_2mortal(newSVhek( with newSVhek_mortal
The new Perl_newSVhek_mortal function is slightly more efficient.
Diffstat (limited to 'mro_core.c')
| -rw-r--r-- | mro_core.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/mro_core.c b/mro_core.c index 042ed673e8..09fbc27ab4 100644 --- a/mro_core.c +++ b/mro_core.c @@ -812,7 +812,7 @@ Perl_mro_package_moved(pTHX_ HV * const stash, HV * const oldstash, : newSVpvs_flags("", SVs_TEMP); } else { - namesv = sv_2mortal(newSVhek(*namep)); + namesv = newSVhek_mortal(*namep); if (GvNAMELEN(gv) == 1) sv_catpvs(namesv, ":"); else sv_catpvs(namesv, "::"); } |