This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
embed.fnc: Mark pad_setsv as core-only
authorKarl Williamson <khw@cpan.org>
Sat, 29 Aug 2020 19:35:29 +0000 (13:35 -0600)
committerKarl Williamson <khw@cpan.org>
Sat, 5 Sep 2020 23:35:00 +0000 (17:35 -0600)
You are supposed to access this functionality through PAD_SETSV

embed.fnc

index f799e80..8fc8a35 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -3386,7 +3386,7 @@ Sd        |PADOFFSET|pad_findlex  |NN const char *namepv|STRLEN namelen|U32 flags \
 #endif
 #ifdef DEBUGGING
 Cpd    |SV*    |pad_sv         |PADOFFSET po
-Apd    |void   |pad_setsv      |PADOFFSET po|NN SV* sv
+Cpd    |void   |pad_setsv      |PADOFFSET po|NN SV* sv
 #endif
 pd     |void   |pad_block_start|int full
 Apd    |U32    |intro_my