From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 17 Jan 1999 09:17:42 +0000 (+0000)
Subject: change#2576 is based on a wrong premise; undo it
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a0964cd6b053e8f07a8976c13435946b665520b4;p=p5sagit%2Fp5-mst-13.2.git

change#2576 is based on a wrong premise; undo it

p4raw-link: @2576 on //depot/cfgperl: 5e985ccb892ad7073a08ce8fc45550f2b84c4230

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

diff --git a/pp_ctl.c b/pp_ctl.c
index 3263b34..230d941 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -45,8 +45,8 @@ static I32 sv_ncmp _((SV *a, SV *b));
 static I32 sv_i_ncmp _((SV *a, SV *b));
 static I32 amagic_ncmp _((SV *a, SV *b));
 static I32 amagic_i_ncmp _((SV *a, SV *b));
-I32 amagic_cmp _((SV *str1, SV *str2));
-I32 amagic_cmp_locale _((SV *str1, SV *str2));
+static I32 amagic_cmp _((SV *str1, SV *str2));
+static I32 amagic_cmp_locale _((SV *str1, SV *str2));
 #endif
 
 PP(pp_wantarray)
@@ -826,7 +826,7 @@ amagic_i_ncmp(register SV *a, register SV *b)
     return sv_i_ncmp(a, b);
 }
 
-I32
+STATIC I32
 amagic_cmp(register SV *str1, register SV *str2)
 {
     SV *tmpsv;
@@ -848,7 +848,7 @@ amagic_cmp(register SV *str1, register SV *str2)
     return sv_cmp(str1, str2);
 }
 
-I32
+STATIC I32
 amagic_cmp_locale(register SV *str1, register SV *str2)
 {
     SV *tmpsv;