Jakieś kryteria, gdy $ 0 skryptu Perla staje się puste?

Question

Mam skrypt Perla, który wewnętrznie używa zależnych modułów Perla z CPAN i mojego własnego projektu. W moim skrypcie używam wartości atrybutu $0 (nazwa skryptu procesu). O dziwo, ta wartość staje się nagle NULL po niektórych zależnych wywołań API. W moim procesie nie używam eval() ani system(). Po prostu regularny skrypt prowadzący od góry do dołu. Każdy pomysł, co może być przyczyną zaniku wartości $0?

Answer 1

Tie::StdScalar, aby dowiedzieć się, kto zmienił $0.

{ 
    package Tie::Scalar::Croaker; 
    use Tie::Scalar qw(); 
    use Carp qw(confess); 
    our @ISA = qw(Tie::StdScalar); 
    sub FETCH { $0 } 
    sub STORE { confess('$0 changed'); } 
    tie($0, Tie::Scalar::Croaker::); 
}