diff --git a/CHANGES.current b/CHANGES.current
index 5600d9ac5..7e6dcdadc 100644
--- a/CHANGES.current
+++ b/CHANGES.current
@@ -7,6 +7,7 @@ Version 3.0.3 (in progress)
 
 2014-12-27: talby
             [Perl] Issue #282 perl5 archlib vs archlibexp
+            [Perl] tidy "warning: duplicate 'extern' declaration specifier" when building generated code under clang
 
 2014-12-09: wsfulton
             Fix #245 - regression (since swig-3.0.0) in templated constructors.
diff --git a/Lib/perl5/perlinit.swg b/Lib/perl5/perlinit.swg
index d9ffa9bf8..cdb73d53a 100644
--- a/Lib/perl5/perlinit.swg
+++ b/Lib/perl5/perlinit.swg
@@ -21,7 +21,7 @@ SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
 
 %init %{
 
-#ifdef __cplusplus
+#if defined(__cplusplus) && ! defined(XSPROTO)
 extern "C"
 #endif