PERL_CALLCONV void Perl_hv_magic(pTHX_ HV *hv, GV *gv, int how);
PERL_CALLCONV bool Perl_do_open(pTHX_ GV *gv, register const char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp);
PERL_CALLCONV bool Perl_do_aexec(pTHX_ SV *really, register SV **mark, register SV **sp);
-PERL_CALLCONV bool Perl_do_exec(pTHX_ const char *cmd);
PERL_CALLCONV U8 * Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv);
PERL_CALLCONV bool Perl_is_utf8_string_loc(pTHX_ const U8 *s, STRLEN len, const U8 **ep);
PERL_CALLCONV void Perl_sv_nolocking(pTHX_ SV *sv);
=for apidoc sv_taint
Taint an SV. Use C<SvTAINTED_on> instead.
+
=cut
*/
Like C<sv_2pv()>, but doesn't return the length too. You should usually
use the macro wrapper C<SvPV_nolen(sv)> instead.
+
=cut
*/
/*
=for apidoc gv_fetchmethod
-See L<gv_fetchmethod_autoload>.
+See L</gv_fetchmethod_autoload>.
=cut
*/
}
#endif
-#ifdef PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION
-bool
-Perl_do_exec(pTHX_ const char *cmd)
-{
- PERL_ARGS_ASSERT_DO_EXEC;
-
- return do_exec3(cmd,0,0);
-}
-#endif
-
/* Backwards compatibility. */
int
Perl_init_i18nl14n(pTHX_ int printwarn)
return init_i18nl10n(printwarn);
}
-PP(pp_padany)
-{
- DIE(aTHX_ "NOT IMPL LINE %d",__LINE__);
-}
-
-PP(pp_mapstart)
-{
- DIE(aTHX_ "panic: mapstart"); /* uses grepstart */
-}
-
-/* These ops all have the same body as pp_null. */
-PP(pp_scalar)
-{
- dVAR;
- return NORMAL;
-}
-
-PP(pp_regcmaybe)
-{
- dVAR;
- return NORMAL;
-}
-
-PP(pp_lineseq)
-{
- dVAR;
- return NORMAL;
-}
-
-PP(pp_scope)
-{
- dVAR;
- return NORMAL;
-}
-
-/* Ops that are calls to do_kv. */
-PP(pp_values)
-{
- return do_kv();
-}
-
-PP(pp_keys)
-{
- return do_kv();
-}
-
-/* Ops that are simply calls to other ops. */
-PP(pp_dump)
-{
- return pp_goto();
- /*NOTREACHED*/
-}
-
-PP(pp_dofile)
-{
- return pp_require();
-}
-
-PP(pp_dbmclose)
-{
- return pp_untie();
-}
-
-PP(pp_read)
-{
- return pp_sysread();
-}
-
-PP(pp_recv)
-{
- return pp_sysread();
-}
-
-PP(pp_seek)
-{
- return pp_sysseek();
-}
-
-PP(pp_fcntl)
-{
- return pp_ioctl();
-}
-
-PP(pp_gsockopt)
-{
- return pp_ssockopt();
-}
-
-PP(pp_getsockname)
-{
- return pp_getpeername();
-}
-
-PP(pp_lstat)
-{
- return pp_stat();
-}
-
-PP(pp_fteowned)
-{
- return pp_ftrowned();
-}
-
-PP(pp_ftbinary)
-{
- return pp_fttext();
-}
-
-PP(pp_localtime)
-{
- return pp_gmtime();
-}
-
-PP(pp_shmget)
-{
- return pp_semget();
-}
-
-PP(pp_shmctl)
-{
- return pp_semctl();
-}
-
-PP(pp_shmread)
-{
- return pp_shmwrite();
-}
-
-PP(pp_msgget)
-{
- return pp_semget();
-}
-
-PP(pp_msgctl)
-{
- return pp_semctl();
-}
-
-PP(pp_ghbyname)
-{
- return pp_ghostent();
-}
-
-PP(pp_ghbyaddr)
-{
- return pp_ghostent();
-}
-
-PP(pp_gnbyname)
-{
- return pp_gnetent();
-}
-
-PP(pp_gnbyaddr)
-{
- return pp_gnetent();
-}
-
-PP(pp_gpbyname)
-{
- return pp_gprotoent();
-}
-
-PP(pp_gpbynumber)
-{
- return pp_gprotoent();
-}
-
-PP(pp_gsbyname)
-{
- return pp_gservent();
-}
-
-PP(pp_gsbyport)
-{
- return pp_gservent();
-}
-
-PP(pp_gpwnam)
-{
- return pp_gpwent();
-}
-
-PP(pp_gpwuid)
-{
- return pp_gpwent();
-}
-
-PP(pp_ggrnam)
-{
- return pp_ggrent();
-}
-
-PP(pp_ggrgid)
-{
- return pp_ggrent();
-}
-
-PP(pp_ftsize)
-{
- return pp_ftis();
-}
-
-PP(pp_ftmtime)
-{
- return pp_ftis();
-}
-
-PP(pp_ftatime)
-{
- return pp_ftis();
-}
-
-PP(pp_ftctime)
-{
- return pp_ftis();
-}
-
-PP(pp_ftzero)
-{
- return pp_ftrowned();
-}
-
-PP(pp_ftsock)
-{
- return pp_ftrowned();
-}
-
-PP(pp_ftchr)
-{
- return pp_ftrowned();
-}
-
-PP(pp_ftblk)
-{
- return pp_ftrowned();
-}
-
-PP(pp_ftfile)
-{
- return pp_ftrowned();
-}
-
-PP(pp_ftdir)
-{
- return pp_ftrowned();
-}
-
-PP(pp_ftpipe)
-{
- return pp_ftrowned();
-}
-
-PP(pp_ftsuid)
-{
- return pp_ftrowned();
-}
-
-PP(pp_ftsgid)
-{
- return pp_ftrowned();
-}
-
-PP(pp_ftsvtx)
-{
- return pp_ftrowned();
-}
-
-PP(pp_unlink)
-{
- return pp_chown();
-}
-
-PP(pp_chmod)
-{
- return pp_chown();
-}
-
-PP(pp_utime)
-{
- return pp_chown();
-}
-
-PP(pp_kill)
-{
- return pp_chown();
-}
-
-PP(pp_symlink)
-{
- return pp_link();
-}
-
-PP(pp_ftrwrite)
-{
- return pp_ftrread();
-}
-
-PP(pp_ftrexec)
-{
- return pp_ftrread();
-}
-
-PP(pp_fteread)
-{
- return pp_ftrread();
-}
-
-PP(pp_ftewrite)
-{
- return pp_ftrread();
-}
-
-PP(pp_fteexec)
-{
- return pp_ftrread();
-}
-
-PP(pp_msgsnd)
-{
- return pp_shmwrite();
-}
-
-PP(pp_msgrcv)
-{
- return pp_shmwrite();
-}
-
-PP(pp_syswrite)
-{
- return pp_send();
-}
-
-PP(pp_semop)
-{
- return pp_shmwrite();
-}
-
-PP(pp_dor)
-{
- return pp_defined();
-}
-
-PP(pp_andassign)
-{
- return pp_and();
-}
-
-PP(pp_orassign)
-{
- return pp_or();
-}
-
-PP(pp_dorassign)
-{
- return pp_defined();
-}
-
-PP(pp_lcfirst)
-{
- return pp_ucfirst();
-}
-
-PP(pp_slt)
-{
- return pp_sle();
-}
-
-PP(pp_sgt)
-{
- return pp_sle();
-}
-
-PP(pp_sge)
-{
- return pp_sle();
-}
-
-PP(pp_rindex)
-{
- return pp_index();
-}
-
-PP(pp_hex)
-{
- return pp_oct();
-}
-
-PP(pp_pop)
-{
- return pp_shift();
-}
-
-PP(pp_cos)
-{
- return pp_sin();
-}
-
-PP(pp_exp)
-{
- return pp_sin();
-}
-
-PP(pp_log)
-{
- return pp_sin();
-}
-
-PP(pp_sqrt)
-{
- return pp_sin();
-}
-
-PP(pp_bit_xor)
-{
- return pp_bit_or();
-}
-
-PP(pp_rv2hv)
-{
- return Perl_pp_rv2av(aTHX);
-}
-
-PP(pp_schomp)
-{
- return Perl_pp_chomp(aTHX);
-}
-
-PP(pp_chomp)
-{
- return Perl_pp_chop(aTHX);
-}
-
-PP(pp_connect)
-{
- return Perl_pp_bind(aTHX);
-}
-
U8 *
Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
{
return sv_eq_flags(sv1, sv2, SV_GMAGIC);
}
+#ifdef USE_LOCALE_COLLATE
char *
Perl_sv_collxfrm(pTHX_ SV *const sv, STRLEN *const nxp)
{
return sv_collxfrm_flags(sv, nxp, SV_GMAGIC);
}
+#endif
bool
Perl_sv_2bool(pTHX_ register SV *const sv)