fix extern declarations

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7321 626c5289-ae23-0410-ae9c-e8d60b6d4f22

6 files changed, 30 insertions, 3 deletions

diff --git a/Examples/perl5/funcptr/example.h b/Examples/perl5/funcptr/example.h
index 58989db79..9936e24fc 100644
--- a/Examples/perl5/funcptr/example.h
+++ b/Examples/perl5/funcptr/example.h
@@ -5,3 +5,5 @@ extern int add(int,int);
 extern int sub(int,int);
 extern int mul(int,int);
 
+extern int (*funcvar)(int,int);
+
diff --git a/Examples/perl5/multimap/example.i b/Examples/perl5/multimap/example.i
index bee53775c..6ccf8c838 100644
--- a/Examples/perl5/multimap/example.i
+++ b/Examples/perl5/multimap/example.i
@@ -1,5 +1,15 @@
 /* File : example.i */
 %module example
+
+%{
+extern int gcd(int x, int y);
+extern int gcdmain(int argc, char *argv[]);
+extern int count(char *bytes, int len, char c);
+extern void capitalize (char *str, int len);
+extern void circle (double cx, double cy);
+extern int squareCubed (int n, int *OUTPUT);
+%}
+
 %include exception.i
 %include typemaps.i
 
diff --git a/Examples/perl5/pointer/example.i b/Examples/perl5/pointer/example.i
index 4483b0f77..a8ac79499 100644
--- a/Examples/perl5/pointer/example.i
+++ b/Examples/perl5/pointer/example.i
@@ -1,6 +1,12 @@
 /* File : example.i */
 %module example
 
+%{
+extern void add(int *, int *, int *);
+extern void sub(int *, int *, int *);
+extern int divide(int, int, int *);
+%}
+
 /* This example illustrates a couple of different techniques
    for manipulating C pointers */
 
diff --git a/Examples/perl5/simple/example.i b/Examples/perl5/simple/example.i
index 6702abb1e..24093b9bf 100644
--- a/Examples/perl5/simple/example.i
+++ b/Examples/perl5/simple/example.i
@@ -1,5 +1,7 @@
 /* File : example.i */
 %module example
 
+%inline %{
 extern int    gcd(int x, int y);
 extern double Foo;
+%}
diff --git a/Examples/perl5/value/example.i b/Examples/perl5/value/example.i
index 83c1f9cd6..1fad8b161 100644
--- a/Examples/perl5/value/example.i
+++ b/Examples/perl5/value/example.i
@@ -6,8 +6,10 @@
 %}
 
 /* Some functions that manipulate Vectors by value */
+%inline %{
 extern double dot_product(Vector a, Vector b);
 extern Vector vector_add(Vector a, Vector b);
+%}
 
 /* Include this because the vector_add() function will leak memory */
 void   free(void *);
diff --git a/Examples/perl5/variables/example.i b/Examples/perl5/variables/example.i
index 56d7f4a55..591b871ed 100644
--- a/Examples/perl5/variables/example.i
+++ b/Examples/perl5/variables/example.i
@@ -5,6 +5,7 @@
 %}
 
 /* Some global variable declarations */
+%inline %{
 extern int              ivar;
 extern short            svar;
 extern long             lvar;
@@ -23,22 +24,26 @@ extern char             name[256];
 
 extern Point           *ptptr;
 extern Point            pt;
+%}
 
 
 /* Some read-only variables */
 
 %immutable;
+
+%inline %{
 extern int  status;
 extern char path[256];
+%}
+
 %mutable;
 
 /* Some helper functions to make it easier to test */
+%inline %{
 extern void  print_vars();
 extern int  *new_int(int value);
 extern Point *new_Point(int x, int y);
 extern char  *Point_print(Point *p);
 extern void  pt_print();
-
-
-
+%}