diff options
| author | Rick Delaney <rick@consumercontact.com> | 2006-12-15 18:28:25 -0500 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-12-18 15:36:11 +0000 |
| commit | c38a65302a7e2e2ea9b8748d368c87d573add6fd (patch) | |
| tree | 1dff559dcefc23bbb14ba21e194e8d9712ab428e /pp_ctl.c | |
| parent | 1151960ed7fc317458b67c83e733c90ee7bbf4fd (diff) | |
| download | perl-c38a65302a7e2e2ea9b8748d368c87d573add6fd.tar.gz | |
Re: [perl #41071] require stringifies code references in tied @INC
Message-ID: <20061216042825.GB23501@localhost.localdomain>
p4raw-id: //depot/perl@29584
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -3150,6 +3150,8 @@ PP(pp_require) for (i = 0; i <= AvFILL(ar); i++) { SV * const dirsv = *av_fetch(ar, i, TRUE); + if (SvTIED_mg((SV*)ar, PERL_MAGIC_tied)) + mg_get(dirsv); if (SvROK(dirsv)) { int count; SV **svp; |