From ccb09ea3553787410bc4d16351b27a7086d012c1 Mon Sep 17 00:00:00 2001
From: Dave Beazley <dave-swig@dabeaz.com>
Date: Tue, 18 Nov 2003 20:58:56 +0000
Subject: [PATCH] Added Swig_contract_assert

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5336 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 SWIG/Lib/perl5/perlrun.swg | 4 ++++
 1 file changed, 4 insertions(+)

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 */