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 /xsutils.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 'xsutils.c')
| -rw-r--r-- | xsutils.c | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -231,10 +231,9 @@ usage: HV *stash = Nullhv; switch (SvTYPE(sv)) { case SVt_PVCV: - if (CvGV(sv) && isGV(CvGV(sv)) && GvSTASH(CvGV(sv)) && - HvNAME(GvSTASH(CvGV(sv)))) + if (CvGV(sv) && isGV(CvGV(sv)) && GvSTASH(CvGV(sv))) stash = GvSTASH(CvGV(sv)); - else if (/* !CvANON(sv) && */ CvSTASH(sv) && HvNAME(CvSTASH(sv))) + else if (/* !CvANON(sv) && */ CvSTASH(sv)) stash = CvSTASH(sv); break; case SVt_PVMG: @@ -242,7 +241,7 @@ usage: break; /*FALLTHROUGH*/ case SVt_PVGV: - if (GvGP(sv) && GvESTASH((GV*)sv) && HvNAME(GvESTASH((GV*)sv))) + if (GvGP(sv) && GvESTASH((GV*)sv)) stash = GvESTASH((GV*)sv); break; default: |