Skip to content

Commit 2c5267a

Browse files
committed
Fix Perl_assert() definition
Source code line numbers now have a typedef and format so that they work on a variety of platforms.
1 parent 907b1de commit 2c5267a

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

perl.h

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -5118,8 +5118,8 @@ Gid_t getegid (void);
51185118
((what) \
51195119
? ((void) 0) \
51205120
: (Perl_croak_nocontext("Assertion %s failed:" \
5121-
" file \"" __FILE__ "\", line %d", \
5122-
STRINGIFY(what), __LINE__), \
5121+
" file \"" __FILE__ "\", line %" LINE_Tf, \
5122+
STRINGIFY(what), (line_t) __LINE__), \
51235123
(void) 0))
51245124
#else
51255125
# define Perl_assert(what) ((void) 0)

0 commit comments

Comments
 (0)