We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 8eb6215 commit 362f3f7Copy full SHA for 362f3f7
dist/base/lib/base.pm
@@ -97,8 +97,8 @@ sub import {
97
{
98
local $SIG{__DIE__};
99
my $fn = _module_to_filename($base);
100
- my $localinc = $INC[-1] eq '.';
101
- local @INC = @INC[0..$#INC-1] if $localinc;
+ local @INC = @INC;
+ pop @INC if my $dotty = $INC[-1] eq '.';
102
eval {
103
require $fn
104
};
@@ -120,7 +120,7 @@ Base class package "$base" is empty.
120
(Perhaps you need to 'use' the module which defines that package first,
121
or make that module available in \@INC (\@INC contains: @INC).
122
ERROR
123
- if ($localinc && -e $fn) {
+ if ($dotty && -e $fn) {
124
$e .= <<ERROS;
125
If you mean to load $fn from the current directory, you may
126
want to try "use lib '.'".
0 commit comments