@@ -768,11 +768,10 @@ Perl_allocmy(pTHX_ const char *const name, const STRLEN len, const U32 flags)
768768 PERL_ARGS_ASSERT_ALLOCMY;
769769
770770 if (flags & ~SVf_UTF8)
771- croak("panic: allocmy illegal flag bits 0x%" UVxf,
772- (UV)flags);
771+ croak("panic: allocmy illegal flag bits 0x%" U32xf, flags);
773772
774773 is_idfirst = flags & SVf_UTF8
775- ? isIDFIRST_utf8_safe((U8*) name + 1, name + len)
774+ ? isIDFIRST_utf8_safe(name + 1, name + len)
776775 : isIDFIRST_A(name[1]);
777776
778777 /* $_, @_, etc. */
@@ -802,11 +801,11 @@ Perl_allocmy(pTHX_ const char *const name, const STRLEN len, const U32 flags)
802801 /* allocate a spare slot and store the name in that slot */
803802
804803 U32 addflags = 0;
805- if(is_our)
804+ if (is_our)
806805 addflags |= padadd_OUR;
807- else if(PL_parser->in_my == KEY_state)
806+ else if (PL_parser->in_my == KEY_state)
808807 addflags |= padadd_STATE;
809- else if(PL_parser->in_my == KEY_field)
808+ else if (PL_parser->in_my == KEY_field)
810809 addflags |= padadd_FIELD;
811810
812811 off = pad_add_name_pvn(name, len, addflags,
@@ -819,7 +818,7 @@ Perl_allocmy(pTHX_ const char *const name, const STRLEN len, const U32 flags)
819818 : NULL
820819 )
821820 );
822- /* anon sub prototypes contains state vars should always be cloned,
821+ /* anon sub prototypes containing state vars should always be cloned,
823822 * otherwise the state var would be shared between anon subs */
824823
825824 if (PL_parser->in_my == KEY_state && CvANON(PL_compcv))
0 commit comments