summaryrefslogtreecommitdiff
path: root/perlapi.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-04-30 11:15:12 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-04-30 11:15:12 +0000
commita453c1697467fe606ef79b5ab7a0eafaa8e78e7a (patch)
tree861b2d7ac5de461c3c5bf8f31bd484b3001f083e /perlapi.c
parent6063ba187760a62f10a97ba9dd6ff5a93107bb51 (diff)
downloadperl-a453c1697467fe606ef79b5ab7a0eafaa8e78e7a.tar.gz
Change PL_numeric_radix to PL_numeric_radix_sv (and leave in
a dummy for PL_numeric_radix); no pressing reason to break binary compatibility; regen API. p4raw-id: //depot/perl@9910
Diffstat (limited to 'perlapi.c')
-rw-r--r--perlapi.c25
1 files changed, 23 insertions, 2 deletions
diff --git a/perlapi.c b/perlapi.c
index 63f94a901d..e0432f7f20 100644
--- a/perlapi.c
+++ b/perlapi.c
@@ -1097,6 +1097,13 @@ Perl_init_stacks(pTHXo)
((CPerlObj*)pPerl)->Perl_init_stacks();
}
+#undef Perl_init_tm
+void
+Perl_init_tm(pTHXo_ struct tm *ptm)
+{
+ ((CPerlObj*)pPerl)->Perl_init_tm(ptm);
+}
+
#undef Perl_instr
char*
Perl_instr(pTHXo_ const char* big, const char* little)
@@ -1588,6 +1595,13 @@ Perl_mg_size(pTHXo_ SV* sv)
return ((CPerlObj*)pPerl)->Perl_mg_size(sv);
}
+#undef Perl_mini_mktime
+void
+Perl_mini_mktime(pTHXo_ struct tm *pm)
+{
+ ((CPerlObj*)pPerl)->Perl_mini_mktime(pm);
+}
+
#undef Perl_moreswitches
char*
Perl_moreswitches(pTHXo_ char* s)
@@ -1706,6 +1720,13 @@ Perl_my_stat(pTHXo)
{
return ((CPerlObj*)pPerl)->Perl_my_stat();
}
+
+#undef Perl_my_strftime
+char *
+Perl_my_strftime(pTHXo_ char *fmt, int sec, int min, int hour, int mday, int mon, int year, int wday, int yday, int isdst)
+{
+ return ((CPerlObj*)pPerl)->Perl_my_strftime(fmt, sec, min, hour, mday, mon, year, wday, yday, isdst);
+}
#if defined(MYSWAP)
#undef Perl_my_swap
@@ -3329,9 +3350,9 @@ Perl_swash_init(pTHXo_ char* pkg, char* name, SV* listsv, I32 minbits, I32 none)
#undef Perl_swash_fetch
UV
-Perl_swash_fetch(pTHXo_ SV *sv, U8 *ptr)
+Perl_swash_fetch(pTHXo_ SV *sv, U8 *ptr, bool do_utf8)
{
- return ((CPerlObj*)pPerl)->Perl_swash_fetch(sv, ptr);
+ return ((CPerlObj*)pPerl)->Perl_swash_fetch(sv, ptr, do_utf8);
}
#undef Perl_taint_env