From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 14 Jul 1999 17:12:13 +0000 (+0000)
Subject: minor efficiency tweak
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e7513ba08f5072cd6b3f2cf5391fe128dd157ac1;p=p5sagit%2Fp5-mst-13.2.git

minor efficiency tweak

p4raw-id: //depot/perl@3672
---

diff --git a/pp_ctl.c b/pp_ctl.c
index 77a4849..60d778b 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 */