diff --git a/SWIG/Lib/perl5/perlrun.swg b/SWIG/Lib/perl5/perlrun.swg
index 8f0f2e718..7b2fcdfc2 100644
--- a/SWIG/Lib/perl5/perlrun.swg
+++ b/SWIG/Lib/perl5/perlrun.swg
@@ -48,6 +48,10 @@ extern "C" {
 #define SWIG_croak(x)  { if ((_swigerr = (const char *) x)) goto fail; }
 #define SWIG_MAX_ERRMSG 256
 
+/* Contract support */
+
+#define SWIG_contract_assert(expr,msg) if (!(expr)) { SWIG_croak(msg); } else
+
 /* Note: SwigMagicFuncHack is a typedef used to get the C++
    compiler to just shut up already */