This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
remove duplicate code and an extra branch in sv_setsv() and
[perl5.git] / objXSUB.h
index 033430e..2c24b59 100644 (file)
--- a/objXSUB.h
+++ b/objXSUB.h
 #define sv_catsv               pPerl->Perl_sv_catsv
 #undef  sv_catsv_mg
 #define sv_catsv_mg            pPerl->Perl_sv_catsv_mg
-#undef  sv_check_thinkfirst
-#define sv_check_thinkfirst    pPerl->Perl_sv_check_thinkfirst
 #undef  sv_chop
 #define sv_chop                        pPerl->Perl_sv_chop
 #undef  sv_clean_all
 #define sv_dump                        pPerl->Perl_sv_dump
 #undef  sv_eq
 #define sv_eq                  pPerl->Perl_sv_eq
+#undef  sv_force_normal
+#define sv_force_normal                pPerl->Perl_sv_force_normal
 #undef  sv_free
 #define sv_free                        pPerl->Perl_sv_free
 #undef  sv_free_arenas