diff options
| author | Abhijit Menon-Sen <ams@wiw.org> | 2001-06-12 18:17:04 +0530 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-12 12:52:57 +0000 |
| commit | 6676db263f08eab1c09a46739d7c3c0d2ea7f6df (patch) | |
| tree | ef7031b813cbdd0ae5c4da9d2326a999a199a8c9 /dump.c | |
| parent | 65b8483b5f20b88f3e36de22e5236706cd8b1e3b (diff) | |
| download | perl-6676db263f08eab1c09a46739d7c3c0d2ea7f6df.tar.gz | |
anonymous stashes
Message-ID: <20010612124704.A29029@lustre.linux.in>
p4raw-id: //depot/perl@10533
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -60,8 +60,8 @@ Perl_dump_packsubs(pTHX_ HV *stash) dump_sub(gv); if (GvFORM(gv)) dump_form(gv); - if (HeKEY(entry)[HeKLEN(entry)-1] == ':' && - (hv = GvHV(gv)) && HvNAME(hv) && hv != PL_defstash) + if (HeKEY(entry)[HeKLEN(entry)-1] == ':' + && (hv = GvHV(gv)) && hv != PL_defstash) dump_packsubs(hv); /* nested package */ } } @@ -883,7 +883,7 @@ Perl_do_gvgv_dump(pTHX_ I32 level, PerlIO *file, char *name, GV *sv) Perl_dump_indent(aTHX_ level, file, "%s = 0x%"UVxf, name, PTR2UV(sv)); if (sv && GvNAME(sv)) { PerlIO_printf(file, "\t\""); - if (GvSTASH(sv) && HvNAME(GvSTASH(sv))) + if (GvSTASH(sv)) PerlIO_printf(file, "%s\" :: \"", HvNAME(GvSTASH(sv))); PerlIO_printf(file, "%s\"\n", GvNAME(sv)); } |