mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

In comments, correct two instances of SVf_PADSTALE to SVs_PADSTALE.

Browse Source
This commit is contained in:
Nicholas Clark 2010-03-08 14:05:52 +00:00
parent 1baeb40218
commit ab8e66c141
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pad.c
View File

@ -101,13 +101,13 @@ become so if C<my sub foo {}> is implemented.)
Note that formats are treated as anon subs, and are cloned each time
write is called (if necessary).
The flag SVf_PADSTALE is cleared on lexicals each time the my() is executed,
The flag SVs_PADSTALE is cleared on lexicals each time the my() is executed,
and set on scope exit. This allows the 'Variable $x is not available' warning
to be generated in evals, such as
{ my $x = 1; sub f { eval '$x'} } f();
For state vars, SVf_PADSTALE is overloaded to mean 'not yet initialised'
For state vars, SVs_PADSTALE is overloaded to mean 'not yet initialised'
=cut
*/