This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Marcus Holland-Moritz suggested that assert should
authorNicholas Clark <nick@ccl4.org>
Fri, 30 Dec 2005 22:44:06 +0000 (22:44 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 30 Dec 2005 22:44:06 +0000 (22:44 +0000)
Perl_croak_nocontext rather than Perl_croak.

p4raw-id: //depot/perl@26545

perl.h

diff --git a/perl.h b/perl.h
index d4efd90..1612020 100644 (file)
--- 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)))