From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 30 Dec 2005 22:44:06 +0000 (+0000)
Subject: Marcus Holland-Moritz suggested that assert should
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=67eb4d3079ea11b2f1cbc84fe9afb351bc67715a;p=p5sagit%2Fp5-mst-13.2.git

Marcus Holland-Moritz suggested that assert should
Perl_croak_nocontext rather than Perl_croak.

p4raw-id: //depot/perl@26545
---

diff --git a/perl.h b/perl.h
index d4efd90..1612020 100644
--- a/perl.h
+++ b/perl.h
@@ -3502,7 +3502,7 @@ Gid_t getegid (void);
 #ifndef assert  /* <assert.h> might have been included somehow */
 #define assert(what)	PERL_DEB( 					\
 	((what) ? ((void) 0) :						\
-	    (Perl_croak(aTHX_ "Assertion %s failed: file \"" __FILE__ 	\
+	    (Perl_croak_nocontext("Assertion %s failed: file \"" __FILE__ \
 			"\", line %d", STRINGIFY(what), __LINE__),	\
 	    PerlProc_exit(1),						\
 	    (void) 0)))