diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-05-03 21:46:02 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-05-03 21:46:02 +0000 |
| commit | 952306aca140c014b38ba5eb2ed71dffaa548f0f (patch) | |
| tree | 54c6ffddc042f5b62b93fed63bf59ac25dcd59d9 /dump.c | |
| parent | d8c3cb99cb05a7cc157c615db679022cae30abb4 (diff) | |
| download | perl-952306aca140c014b38ba5eb2ed71dffaa548f0f.tar.gz | |
Introduce a new keyword, state, for state variables.
p4raw-id: //depot/perl@28086
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -1244,6 +1244,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo if (GvASSUMECV(sv)) sv_catpv(d, "ASSUMECV,"); if (GvIN_PAD(sv)) sv_catpv(d, "IN_PAD,"); if (SvPAD_OUR(sv)) sv_catpv(d, "OUR,"); + if (SvPAD_STATE(sv)) sv_catpv(d, "STATE,"); if (SvPAD_TYPED(sv)) sv_catpv(d, "TYPED,"); if (GvIMPORTED(sv)) { sv_catpv(d, "IMPORT"); |