Bug #64521 for indirect: "no indirect" leaking into eval

This is not an indirect bug and is a side effect of how the lexical hints hash work. The test case can be reduced to # ------------------------------------------------------------- #!perl package X; # plays the role of Test::Most sub import { my $module = 'Carp'; if ($module->isa('Exporter')) { print "require $module\n"; eval "require $module; print qq[wut\\n] if \$^H{wut}" } else { print "use $module\n"; eval "use $module;" } } package Y; # plays the role of TestMost sub import { shift; X->import for 1 .. $_[0]; } package main; BEGIN { $^H |= 0x20000; $^H{wut} = 1; } BEGIN { Y->import($ARGV[0]); } # ------------------------------------------------------------- (see the y.t file attached) $ perl y.t 1 use Carp $ perl y.t 2 use Carp require Carp wut $^H{wut} (playing the role of indirect) is set in the BEGIN block in which Y->import is called, thus it is also set in all Y->import's callees (see perldoc perlvar, %^H). The first time X->import is called, Carp isn't loaded yet so Carp->isa('Exporter') is false. The second branch is then executed, which only does an eval "use $module", without any indirect construct. The second time, Carp is loaded so the first branch is executed, and the indirect construct is reported (here, "wut" is printed). If anything, one may say that there is a bug in indirect with perl version 5.10.0 and earlier, for which your test case does not produce any indirect violations. This is because the workaround used in indirect to fix some other leaking bugs of %^H is actually stricter than the expected "correct" behaviour of %^H. The behaviour of indirect with perl version 5.10.1 and greater is in line with how %^H works. Vincent.

#!perl package X; sub import { my $module = 'Carp'; if ($module->isa('Exporter')) { print "require $module\n"; eval "require $module; print qq[wut\\n] if \$^H{wut}" } else { print "use $module\n"; eval "use $module;" } } package Y; sub import { shift; X->import for 1 .. $_[0]; } package main; BEGIN { $^H |= 0x20000; $^H{wut} = 1; } BEGIN { Y->import($ARGV[0]); }