summaryrefslogtreecommitdiff
path: root/pad.c
diff options
context:
space:
mode:
authorPeter J. Acklam) (via RT <perlbug-followup@perl.org>2011-01-06 23:13:56 -0800
committerAbigail <abigail@abigail.be>2011-01-07 11:14:22 +0100
commit486ec47ab73770ab60bf9cfb6d398a4371463266 (patch)
tree74fc7e7969e5c694ddafafe589afec7694b69dc3 /pad.c
parent7237a61d0477f17adcfed2690643e9c4b2dccaae (diff)
downloadperl-486ec47ab73770ab60bf9cfb6d398a4371463266.tar.gz
Fix typos (spelling errors) in Perl sources.
# New Ticket Created by (Peter J. Acklam) # Please include the string: [perl #81904] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=81904 > Signed-off-by: Abigail <abigail@abigail.be>
Diffstat (limited to 'pad.c')
-rw-r--r--pad.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/pad.c b/pad.c
index 8ab34ff465..de462c7254 100644
--- a/pad.c
+++ b/pad.c
@@ -868,7 +868,7 @@ S_pad_findlex(pTHX_ const char *name, const CV* cv, U32 seq, int warn,
* instances. For now, we just test !CvUNIQUE(cv), but
* ideally, we should detect my's declared within loops
* etc - this would allow a wider range of 'not stayed
- * shared' warnings. We also treated alreadly-compiled
+ * shared' warnings. We also treated already-compiled
* lexes as not multi as viewed from evals. */
*out_flags = CvANON(cv) ?
@@ -993,7 +993,7 @@ S_pad_findlex(pTHX_ const char *name, const CV* cv, U32 seq, int warn,
{
/* This relies on sv_setsv_flags() upgrading the destination to the same
- type as the source, independant of the flags set, and on it being
+ type as the source, independent of the flags set, and on it being
"good" and only copying flag bits and pointers that it understands.
*/
SV *new_namesv = newSVsv(*out_name_sv);
@@ -1339,7 +1339,7 @@ Perl_pad_tidy(pTHX_ padtidy_type type)
* so that for example the eval's CV in C<< sub { eval '$x' } >> gets
* the right CvOUTSIDE.
* If running with -d, *any* sub may potentially have an eval
- * excuted within it.
+ * executed within it.
*/
if (PL_cv_has_eval || PL_perldb) {