@@ -114,7 +114,7 @@ write is called (if necessary).
114114The flag C<SVs_PADSTALE> is cleared on lexicals each time the C<my()> is executed,
115115and set on scope exit. This allows the
116116C<"Variable $x is not available"> warning
117- to be generated in evals, such as
117+ to be generated in evals, such as
118118
119119 { my $x = 1; sub f { eval '$x'} } f();
120120
@@ -1183,7 +1183,7 @@ S_pad_findlex(pTHX_ const char *namepv, STRLEN namelen, U32 flags, const CV* cv,
11831183 DEBUG_Xv (PerlIO_printf (Perl_debug_log ,
11841184 "Pad findlex cv=0x%" UVxf " matched: offset=%ld flags=0x%lx index=%lu\n" ,
11851185 PTR2UV (cv ), (long )offset , (unsigned long )* out_flags ,
1186- (unsigned long ) PARENT_PAD_INDEX (* out_name )
1186+ (unsigned long ) PARENT_PAD_INDEX (* out_name )
11871187 ));
11881188 }
11891189
@@ -2012,7 +2012,7 @@ S_cv_clone_pad(pTHX_ CV *proto, CV *cv, CV *outside, HV *cloned,
20122012 S_unavailable (aTHX_ namesv );
20132013 sv = NULL ;
20142014 }
2015- else
2015+ else
20162016 SvREFCNT_inc_simple_void_NN (sv );
20172017 }
20182018 if (!sv ) {
@@ -2573,8 +2573,8 @@ Perl_padlist_dup(pTHX_ PADLIST *srcpad, CLONE_PARAMS *param)
25732573 interacts with lexicals. */
25742574 pad1a [ix ] = sv_dup_inc (oldpad [ix ], param );
25752575 } else {
2576- SV * sv ;
2577-
2576+ SV * sv ;
2577+
25782578 if (sigil == '@' )
25792579 sv = MUTABLE_SV (newAV ());
25802580 else if (sigil == '%' )
0 commit comments