diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-29 16:49:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-29 16:49:39 +0000 |
| commit | 19b6c8477cd2e910bb2cbaecb93e0595d8ecada1 (patch) | |
| tree | ed6cef246a9f6d288c0234187cb8d18a1211e7fb /gv.c | |
| parent | 7fac1903b890dcf899cc0c18a1b5f9e0198b58ab (diff) | |
| download | perl-19b6c8477cd2e910bb2cbaecb93e0595d8ecada1.tar.gz | |
avoid gv_check() recursive pit
p4raw-id: //depot/perl@3506
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -892,7 +892,7 @@ gv_check(HV *stash) if (HeKEY(entry)[HeKLEN(entry)-1] == ':' && (gv = (GV*)HeVAL(entry)) && (hv = GvHV(gv)) && HvNAME(hv)) { - if (hv != PL_defstash) + if (hv != PL_defstash && hv != stash) gv_check(hv); /* nested package */ } else if (isALPHA(*HeKEY(entry))) { |