diff options
| -rw-r--r-- | pod/perlvar.pod | 5 | ||||
| -rw-r--r-- | pp_ctl.c | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/pod/perlvar.pod b/pod/perlvar.pod index cdbd53ffe8..d723271159 100644 --- a/pod/perlvar.pod +++ b/pod/perlvar.pod @@ -1080,6 +1080,11 @@ value is the location of the file found. The C<require> operator uses this hash to determine whether a particular file has already been included. +If the file was loaded via a hook (see L<perlfunc/require> for a +description of these hooks), a fake filename is inserted into %INC. It +looks like F</loader/0x81095c8/Foo.pm>, where the hexadecimal number +corresponds to the reference that was put in @INC. + =item %ENV =item $ENV{expr} @@ -3160,7 +3160,7 @@ trylocal: { } Perl_sv_setpvf(aTHX_ namesv, "/loader/0x%"UVxf"/%s", - PTR2UV(SvANY(loader)), name); + PTR2UV(SvRV(dirsv)), name); tryname = SvPVX(namesv); tryrsfp = 0; |