Perl コードの一部をリファクタリングしているときに、次の奇妙な動作に気付きました。
次の小さなサンプル スクリプトを検討してください。
#!/usr/bin/perl -w
package test;
use strict;
my $obj = bless( {}, __PACKAGE__);
our @ISA = qw( missing );
exit(0)
予想される警告
Can't locate package missing for @test::ISA at test.pl line 8
1回ではなく3回登場。この警告の他の 2 つのトリガーは何ですか? 3 つすべてを参照してくださいexit(0)
。
gentoo Linux の perl バージョン 5.12.4。
ありがとう。