diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-06-12 22:47:07 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-06-15 12:28:15 -0700 |
| commit | 37e77c235a1d9e646643ada8d96154d9ae4d5137 (patch) | |
| tree | a7cc9fa6f186430b8cd3fb737a3e0dead7243edb /perl.c | |
| parent | a3c74922a7051406441eefc195a04937db4f8ac7 (diff) | |
| download | perl-37e77c235a1d9e646643ada8d96154d9ae4d5137.tar.gz | |
perl.c: Clarify comment
This comment was added by commit 17fbfdf. Without looking at the
diff, it’s not clear that ‘Do this now’ refers to setting PL_curcop,
rather than destroying the main CV. Also, there was a missing verb,
leading to confusion. (I first inferred ‘cause’ when reading it,
but it is actually ‘expect’, based on inspecting the code in
sv.c:S_new_SV.)
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -737,10 +737,10 @@ perl_destruct(pTHXx) /* We must account for everything. */ /* Destroy the main CV and syntax tree */ - /* Do this now, because destroying ops can cause new SVs to be generated - in Perl_pad_swipe, and when running with -DDEBUG_LEAKING_SCALARS they - PL_curcop to point to a valid op from which the filename structure - member is copied. */ + /* Set PL_curcop now, because destroying ops can cause new SVs + to be generated in Perl_pad_swipe, and when running with + -DDEBUG_LEAKING_SCALARS they expect PL_curcop to point to a valid + op from which the filename structure member is copied. */ PL_curcop = &PL_compiling; if (PL_main_root) { /* ensure comppad/curpad to refer to main's pad */ |