This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don't declare a function inside another function
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 9 Nov 2005 10:31:35 +0000 (10:31 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 9 Nov 2005 10:31:35 +0000 (10:31 +0000)
p4raw-id: //depot/perl@26057

perl.c

diff --git a/perl.c b/perl.c
index 40c86c2..3322ff2 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -138,9 +138,9 @@ static I32 read_e_script(pTHX_ int idx, SV *buf_sv, int maxlen);
 #endif
 
 #ifndef NO_MATHOMS
-/* This reference ensure that the mathoms are linked with perl */
+/* This reference ensures that the mathoms are linked with perl */
+extern void Perl_mathoms();
 void Perl_mathoms_ref() {
-    extern void Perl_mathoms();
     Perl_mathoms();
 }
 #endif