Можно ли обмануть Perl, чтобы он использовал переменную %INC и при этом не трогал глобальную %INC?

Глобальная переменная %INC (или %main::INC, или %::INC) полностью отличается от переменной %INC с лексической областью действия, созданной с помощью my. Вы можете безопасно использовать my %INC в своей подпрограмме.

Определение my %INC с лексической областью видимости возможно, но эта переменная не имеет абсолютно никакого особого значения. Perl учитывает только глобальные %INC при работе с модульной системой.

Ваша проблема в другом

Просто чтобы развлечь вас примерами, учитывая:

Ааа.pm

package Aaa;
warn "Aaa loaded!";

1;

вкл.pl

use strict;
use warnings;
use Data::Dumper;

use Aaa;
require Aaa;
warn 1, Dumper \%INC;
{
    my %INC;
    use Aaa;
    require Aaa;
    warn 2, Dumper \%INC;
}
warn 3, Dumper \%INC;
my %INC;
use Aaa;
require Aaa;

sub again {
    my %INC;
    require Aaa;
    warn 4, Dumper \%INC;
}

again();
warn 5, Dumper \%INC;

Вы увидите только глобальные %INC в 1 и 3, без каких-либо изменений в лексических, а Aaa.pm все равно будет загружаться ровно один раз.

perldoc vars говорит, что прагма vars была заменена ключевым словом our.

Следование совету документации, похоже, работает для меня:

package Incentives;

use strict;
use warnings;
use Data::Dump 'dump';

our %INC = ( abc => 123 );

dump \%INC;                   # ( abc => 123 ),
                              # different under use vars '%INC';

use List::Util;               # Loads just fine

package Test;

use Data::Dump 'dump';

dump \%Incentives::INC;       # ( abc => 123 )
dump \%main::INC;             # reference to global %INC

1;

У вас будут проблемы, если вы коснетесь глобальной переменной пакета %INC, но вы можете создать все лексические элементы с именем %INC, какие захотите, и это не будет проблемой.

$ perl -e'require CGI; my %INC; require CGI;'

$ perl -e'require CGI; local %INC; require CGI;'
Subroutine export_fail redefined at .../Carp.pm line 64.
Subroutine _cgc redefined at .../Carp.pm line 66.
Subroutine longmess redefined at .../Carp.pm line 72.
Subroutine shortmess redefined at .../Carp.pm line 92.
Subroutine croak redefined at .../Carp.pm line 100.
Subroutine confess redefined at .../Carp.pm line 101.
Subroutine carp redefined at .../Carp.pm line 102.
Subroutine cluck redefined at .../Carp.pm line 103.
Constant subroutine Carp::CALLER_OVERRIDE_CHECK_OK redefined at .../Carp.pm line 108.
Subroutine caller_info redefined at .../Carp.pm line 114.
Subroutine format_arg redefined at .../Carp.pm line 181.
Subroutine get_status redefined at .../Carp.pm line 213.
Subroutine get_subname redefined at .../Carp.pm line 222.
Subroutine long_error_loc redefined at .../Carp.pm line 240.
Subroutine longmess_heavy redefined at .../Carp.pm line 268.
Subroutine ret_backtrace redefined at .../Carp.pm line 276.
Subroutine ret_summary redefined at .../Carp.pm line 309.
Subroutine short_error_loc redefined at .../Carp.pm line 324.
Subroutine shortmess_heavy redefined at .../Carp.pm line 348.
Subroutine str_len_trim redefined at .../Carp.pm line 361.
Subroutine trusts redefined at .../Carp.pm line 376.
Subroutine trusts_directly redefined at .../Carp.pm line 396.
Constant subroutine CGI::XHTML_DTD redefined at .../constant.pm line 151.
Subroutine _ops_to_nums redefined at .../overloading.pm line 10.
Subroutine import redefined at .../overloading.pm line 19.
Subroutine unimport redefined at .../overloading.pm line 37.

То, что ты сказал, не вяжется. Вы должны где-то менять глобальное %INC вместо лексического.

попробуй с

no warnings 'redefine';

в этой подпрограмме, хотя это может иметь некоторые интересные побочные эффекты в будущем

Я думаю, что нашел реальную проблему и способ справиться с ней.

Есть два файла, которые я не создавал.

file1.pl имеет несколько сабвуферов. Один из этих сабвуферов делает что-то вроде этого:

sub foo {
  my %INC = (foo => 'bar'); # lexical variable, does not mess with global %INC
  return %INC;
}

file2.pl выглядит так:

use vars qw(%INC);     # oops! global variable
require 'file1.pl';

sub bar1 {
  if (!$INC{'foo'}) {
    %INC = &foo();     # this is breaking stuff
  }
  my $hashref = {
    'inc' => \%INC,
  }
  return $hashref;
}

sub bar2 {
  if (!$INC{'foo2'}) {
    %INC = &foo();
  }
}
# and so on

В file3.pl, который я создал, у меня есть:

use MyModule;
require 'file2.pl';

my $data = &bar1();
my $obj = MyModule->new();
$obj->doStuff();

Теперь, когда я вызываю doStuff(), он печатает предупреждение о переопределении для каждого элемента в глобальном %INC (который теперь пуст из-за файла2).

Я искал кодовую базу для %INC и обнаружил, что только файл1 и файл2 используют его вообще. Итак, что я сделал, это изменить файл2 на это:

use vars qw();
require 'file1.pl';

my %INC;     # now lexical, but still the same for all subs in this file
sub bar1 {
  if (!$INC{'foo'}) {
    %INC = &foo();     # this is not breaking stuff any more
  }
  my $hashref = {
    'inc' => \%INC,
  }
  return $hashref;
}

sub bar2 {
  if (!$INC{'foo2'}) {
    %INC = &foo();
  }
}
# and so on