This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
require.t needs binmode() to work on windows
[perl5.git]
/
perlapi.c
diff --git
a/perlapi.c
b/perlapi.c
old mode 100755
(executable)
new mode 100644
(file)
index
ccb7c8f
..
f7b16cd
--- a/
perlapi.c
+++ b/
perlapi.c
@@
-85,6
+85,13
@@
Perl_Gv_AMupdate(pTHXo_ HV* stash)
return ((CPerlObj*)pPerl)->Perl_Gv_AMupdate(stash);
}
return ((CPerlObj*)pPerl)->Perl_Gv_AMupdate(stash);
}
+#undef Perl_apply_attrs_string
+void
+Perl_apply_attrs_string(pTHXo_ char *stashpv, CV *cv, char *attrstr, STRLEN len)
+{
+ ((CPerlObj*)pPerl)->Perl_apply_attrs_string(stashpv, cv, attrstr, len);
+}
+
#undef Perl_avhv_delete_ent
SV*
Perl_avhv_delete_ent(pTHXo_ AV *ar, SV* keysv, I32 flags, U32 hash)
#undef Perl_avhv_delete_ent
SV*
Perl_avhv_delete_ent(pTHXo_ AV *ar, SV* keysv, I32 flags, U32 hash)
@@
-162,13
+169,6
@@
Perl_av_extend(pTHXo_ AV* ar, I32 key)
((CPerlObj*)pPerl)->Perl_av_extend(ar, key);
}
((CPerlObj*)pPerl)->Perl_av_extend(ar, key);
}
-#undef Perl_av_fake
-AV*
-Perl_av_fake(pTHXo_ I32 size, SV** svp)
-{
- return ((CPerlObj*)pPerl)->Perl_av_fake(size, svp);
-}
-
#undef Perl_av_fetch
SV**
Perl_av_fetch(pTHXo_ AV* ar, I32 key, I32 lval)
#undef Perl_av_fetch
SV**
Perl_av_fetch(pTHXo_ AV* ar, I32 key, I32 lval)
@@
-211,13
+211,6
@@
Perl_av_push(pTHXo_ AV* ar, SV* val)
((CPerlObj*)pPerl)->Perl_av_push(ar, val);
}
((CPerlObj*)pPerl)->Perl_av_push(ar, val);
}
-#undef Perl_av_reify
-void
-Perl_av_reify(pTHXo_ AV* ar)
-{
- ((CPerlObj*)pPerl)->Perl_av_reify(ar);
-}
-
#undef Perl_av_shift
SV*
Perl_av_shift(pTHXo_ AV* ar)
#undef Perl_av_shift
SV*
Perl_av_shift(pTHXo_ AV* ar)
@@
-1326,6
+1319,13
@@
Perl_is_utf8_char(pTHXo_ U8 *p)
return ((CPerlObj*)pPerl)->Perl_is_utf8_char(p);
}
return ((CPerlObj*)pPerl)->Perl_is_utf8_char(p);
}
+#undef Perl_is_utf8_string
+bool
+Perl_is_utf8_string(pTHXo_ U8 *s, STRLEN len)
+{
+ return ((CPerlObj*)pPerl)->Perl_is_utf8_string(s, len);
+}
+
#undef Perl_is_utf8_alnum
bool
Perl_is_utf8_alnum(pTHXo_ U8 *p)
#undef Perl_is_utf8_alnum
bool
Perl_is_utf8_alnum(pTHXo_ U8 *p)
@@
-3317,16
+3317,16
@@
Perl_unsharepvn(pTHXo_ const char* sv, I32 len, U32 hash)
#undef Perl_utf16_to_utf8
U8*
#undef Perl_utf16_to_utf8
U8*
-Perl_utf16_to_utf8(pTHXo_ U
16* p, U8 *d, I32 byte
len)
+Perl_utf16_to_utf8(pTHXo_ U
8* p, U8 *d, I32 bytelen, I32 *new
len)
{
{
- return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8(p, d, bytelen);
+ return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8(p, d, bytelen
, newlen
);
}
#undef Perl_utf16_to_utf8_reversed
U8*
}
#undef Perl_utf16_to_utf8_reversed
U8*
-Perl_utf16_to_utf8_reversed(pTHXo_ U
16* p, U8 *d, I32 byte
len)
+Perl_utf16_to_utf8_reversed(pTHXo_ U
8* p, U8 *d, I32 bytelen, I32 *new
len)
{
{
- return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8_reversed(p, d, bytelen);
+ return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8_reversed(p, d, bytelen
, newlen
);
}
#undef Perl_utf8_distance
}
#undef Perl_utf8_distance
@@
-3519,6
+3519,15
@@
Perl_runops_debug(pTHXo)
{
return ((CPerlObj*)pPerl)->Perl_runops_debug();
}
{
return ((CPerlObj*)pPerl)->Perl_runops_debug();
}
+#if defined(USE_THREADS)
+
+#undef Perl_sv_lock
+SV*
+Perl_sv_lock(pTHXo_ SV *sv)
+{
+ return ((CPerlObj*)pPerl)->Perl_sv_lock(sv);
+}
+#endif
#undef Perl_sv_catpvf_mg
void
#undef Perl_sv_catpvf_mg
void
@@
-3969,6
+3978,13
@@
Perl_ptr_table_split(pTHXo_ PTR_TBL_t *tbl)
#endif
#if defined(HAVE_INTERP_INTERN)
#endif
#if defined(HAVE_INTERP_INTERN)
+#undef Perl_sys_intern_clear
+void
+Perl_sys_intern_clear(pTHXo)
+{
+ ((CPerlObj*)pPerl)->Perl_sys_intern_clear();
+}
+
#undef Perl_sys_intern_init
void
Perl_sys_intern_init(pTHXo)
#undef Perl_sys_intern_init
void
Perl_sys_intern_init(pTHXo)
@@
-4039,13
+4055,6
@@
Perl_sys_intern_init(pTHXo)
# if defined(LEAKTEST)
# endif
#endif
# if defined(LEAKTEST)
# endif
#endif
-
-#undef Perl_lock
-SV*
-Perl_lock(pTHXo_ SV *sv)
-{
- return ((CPerlObj*)pPerl)->Perl_lock(sv);
-}
#if defined(PERL_OBJECT)
#endif
#if defined(PERL_OBJECT)
#endif