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 c82bde3 commit 8e28d19Copy full SHA for 8e28d19
perl.h
@@ -5096,6 +5096,10 @@ Gid_t getegid (void);
5096
/* Keep the old croak based assert for those who want it, and as a fallback if
5097
the platform is so heretically non-ANSI that it can't assert. */
5098
5099
+#ifndef assert
5100
+# define assert(what) Perl_assert(what)
5101
+#endif
5102
+
5103
#ifdef DEBUGGING
5104
# define Perl_assert(what) \
5105
((what) \
@@ -5107,9 +5111,6 @@ Gid_t getegid (void);
5107
5111
# define Perl_assert(what) ((void) 0)
5108
5112
#endif
5109
5113
5110
-#ifndef assert
-# define assert(what) Perl_assert(what)
-#endif
5114
5115
# define assert_(what) assert(what),
5116
#else
0 commit comments