diff options
| author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2021-08-22 21:51:13 +0100 |
|---|---|---|
| committer | Paul Evans <leonerd@leonerd.org.uk> | 2021-08-25 19:57:49 +0100 |
| commit | 972c8f20eb76a50b81fd2f1d3228a8fff6282347 (patch) | |
| tree | b352ec05be0e36842876a7cef22df1380dcab4ae /universal.c | |
| parent | ecc6bf9b4b2a775770929c210e3aa9213dfb5d93 (diff) | |
| download | perl-972c8f20eb76a50b81fd2f1d3228a8fff6282347.tar.gz | |
Convert some existing uses of SvRV_set() to use the new sv_setrv* family of functions
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/universal.c b/universal.c index cce2a87d1c..8dd693aa10 100644 --- a/universal.c +++ b/universal.c @@ -1097,10 +1097,9 @@ XS(XS_NamedCapture_tie_it) SV *rv = newSV_type(SVt_IV); const char *gv_name = GvNAME(gv); - SvRV_set(rv, newSVuv( + sv_setrv_noinc(rv, newSVuv( strEQ(gv_name, "-") || strEQ(gv_name, "\003APTURE_ALL") ? RXapif_ALL : RXapif_ONE)); - SvROK_on(rv); sv_bless(rv, GvSTASH(CvGV(cv))); sv_unmagic((SV *)hv, PERL_MAGIC_tied); |