We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 2c5267a commit 791874eCopy full SHA for 791874e
perl.h
@@ -5113,6 +5113,10 @@ Gid_t getegid (void);
5113
/* Keep the old croak based assert for those who want it, and as a fallback if
5114
the platform is so heretically non-ANSI that it can't assert. */
5115
5116
+#ifndef assert
5117
+# define assert(what) Perl_assert(what)
5118
+#endif
5119
+
5120
#ifdef DEBUGGING
5121
# define Perl_assert(what) \
5122
((what) \
@@ -5125,9 +5129,6 @@ Gid_t getegid (void);
5125
5129
# define Perl_assert(what) ((void) 0)
5126
5130
#endif
5127
5131
5128
-#ifndef assert
-# define assert(what) Perl_assert(what)
-#endif
5132
5133
# define assert_(what) assert(what),
5134
#else
0 commit comments