Skip to content
This repository was archived by the owner on Jun 1, 2023. It is now read-only.

Commit b292c2e

Browse files
committed
phase_names: provide a name for UNITCHECK
SEGV in IRI during UNITCHECK. UNITCHECK is cperl-only, not yet in 5.25.2. So we can adjust the value also.
1 parent 69b140c commit b292c2e

File tree

1 file changed

+4
-3
lines changed

1 file changed

+4
-3
lines changed

perl.h

Lines changed: 4 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -5542,7 +5542,7 @@ EXTCONST char PL_bincompat_options[];
55425542
#endif
55435543

55445544
/* The interpreter phases. If these ever change, PL_phase_names right below will
5545-
* need to be updated accordingly. */
5545+
* need to be updated accordingly. Eventually: LINK (perl6, orig. called FINAL) */
55465546
enum perl_phase {
55475547
PERL_PHASE_CONSTRUCT = 0,
55485548
PERL_PHASE_START = 1,
@@ -5551,7 +5551,7 @@ enum perl_phase {
55515551
PERL_PHASE_RUN = 4,
55525552
PERL_PHASE_END = 5,
55535553
PERL_PHASE_DESTRUCT = 6,
5554-
PERL_PHASE_UNITCHECK = 8
5554+
PERL_PHASE_UNITCHECK = 7 /* cperl only */
55555555
};
55565556

55575557
#ifdef DOINIT
@@ -5562,7 +5562,8 @@ EXTCONST char *const PL_phase_names[] = {
55625562
"INIT",
55635563
"RUN",
55645564
"END",
5565-
"DESTRUCT"
5565+
"DESTRUCT",
5566+
"UNITCHECK"
55665567
};
55675568
#else
55685569
EXTCONST char *const PL_phase_names[];

0 commit comments

Comments
 (0)