summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c9
1 files changed, 9 insertions, 0 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 77a48493de..60d778b5a1 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -39,8 +39,13 @@ static I32 amagic_ncmp(pTHXo_ SV *a, SV *b);
static I32 amagic_i_ncmp(pTHXo_ SV *a, SV *b);
static I32 amagic_cmp(pTHXo_ SV *a, SV *b);
static I32 amagic_cmp_locale(pTHXo_ SV *a, SV *b);
+#ifdef PERL_OBJECT
static I32 sv_cmp_static(pTHXo_ SV *a, SV *b);
static I32 sv_cmp_locale_static(pTHXo_ SV *a, SV *b);
+#else
+#define sv_cmp_static Perl_sv_cmp
+#define sv_cmp_locale_static Perl_sv_cmp_locale
+#endif
PP(pp_wantarray)
{
@@ -4090,6 +4095,8 @@ amagic_cmp_locale(pTHXo_ register SV *str1, register SV *str2)
return sv_cmp_locale(str1, str2);
}
+#ifdef PERL_OBJECT
+
static I32
sv_cmp_locale_static(pTHXo_ register SV *str1, register SV *str2)
{
@@ -4101,3 +4108,5 @@ sv_cmp_static(pTHXo_ register SV *str1, register SV *str2)
{
return sv_cmp(str1, str2);
}
+
+#endif /* PERL_OBJECT */