@@ -770,11 +770,10 @@ Perl_allocmy(pTHX_ const char *const name, const STRLEN len, const U32 flags)
770
770
assert(name[0] && name[1]);
771
771
772
772
if (flags & ~SVf_UTF8)
773
- croak("panic: allocmy illegal flag bits 0x%" UVxf,
774
- (UV)flags);
773
+ croak("panic: allocmy illegal flag bits 0x%" U32xf, flags);
775
774
776
775
is_idfirst = flags & SVf_UTF8
777
- ? isIDFIRST_utf8_safe((U8*) name + 1, name + len)
776
+ ? isIDFIRST_utf8_safe(name + 1, name + len)
778
777
: isIDFIRST_A(name[1]);
779
778
780
779
/* $_, @_, etc. */
@@ -804,11 +803,11 @@ Perl_allocmy(pTHX_ const char *const name, const STRLEN len, const U32 flags)
804
803
/* allocate a spare slot and store the name in that slot */
805
804
806
805
U32 addflags = 0;
807
- if(is_our)
806
+ if (is_our)
808
807
addflags |= padadd_OUR;
809
- else if(PL_parser->in_my == KEY_state)
808
+ else if (PL_parser->in_my == KEY_state)
810
809
addflags |= padadd_STATE;
811
- else if(PL_parser->in_my == KEY_field)
810
+ else if (PL_parser->in_my == KEY_field)
812
811
addflags |= padadd_FIELD;
813
812
814
813
off = pad_add_name_pvn(name, len, addflags,
@@ -821,7 +820,7 @@ Perl_allocmy(pTHX_ const char *const name, const STRLEN len, const U32 flags)
821
820
: NULL
822
821
)
823
822
);
824
- /* anon sub prototypes contains state vars should always be cloned,
823
+ /* anon sub prototypes containing state vars should always be cloned,
825
824
* otherwise the state var would be shared between anon subs */
826
825
827
826
if (PL_parser->in_my == KEY_state && CvANON(PL_compcv))
0 commit comments