From a446a88f1d0ae9b5bdb72150525c08f417f05975 Mon Sep 17 00:00:00 2001
From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Tue, 22 Jan 2002 17:32:21 +0000
Subject: Shared scalars working, some shared array ops working.

p4raw-id: //depot/perlio@14377
---
 perl.h | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'perl.h')

diff --git a/perl.h b/perl.h
index e2b3419fcd..85aae2c82e 100644
--- a/perl.h
+++ b/perl.h
@@ -2540,6 +2540,14 @@ Gid_t getegid (void);
 #define YYMAXDEPTH 300
 
 #ifndef assert  /* <assert.h> might have been included somehow */
+#ifdef DEBUGGING
+#define assert(what)	DEB( {						\
+	if (!(what)) {							\
+	    Perl_croak(aTHX_ "Assertion " STRINGIFY(what) " failed: file \"%s\", line %d",	\
+		__FILE__, __LINE__);					\
+	    PerlProc_exit(1);						\
+	}})
+#else
 #define assert(what)	DEB( {						\
 	if (!(what)) {							\
 	    Perl_croak(aTHX_ "Assertion failed: file \"%s\", line %d",	\
@@ -2547,6 +2555,7 @@ Gid_t getegid (void);
 	    PerlProc_exit(1);						\
 	}})
 #endif
+#endif
 
 struct ufuncs {
     I32 (*uf_val)(pTHX_ IV, SV*);
-- 
cgit v1.2.1