From 6676db263f08eab1c09a46739d7c3c0d2ea7f6df Mon Sep 17 00:00:00 2001 From: Abhijit Menon-Sen Date: Tue, 12 Jun 2001 18:17:04 +0530 Subject: anonymous stashes Message-ID: <20010612124704.A29029@lustre.linux.in> p4raw-id: //depot/perl@10533 --- dump.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'dump.c') diff --git a/dump.c b/dump.c index 4547aea87a..bbbcec364f 100644 --- a/dump.c +++ b/dump.c @@ -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)); } -- cgit v1.2.1