Skip to content

Commit fec05db

Browse files
committed
pad.c: Remove trailing spaces
1 parent c87659a commit fec05db

File tree

1 file changed

+5
-5
lines changed

1 file changed

+5
-5
lines changed

pad.c

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -114,7 +114,7 @@ write is called (if necessary).
114114
The flag C<SVs_PADSTALE> is cleared on lexicals each time the C<my()> is executed,
115115
and set on scope exit. This allows the
116116
C<"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

Comments
 (0)