私はmod_perlスクリプトを持っています:
use strict;
use warnings FATAL => 'all';
use 5.010001;
my $face = 'ugly';
use Data::Dump qq(pp);
die pp($ModPerl::ROOT::ModPerl::Registry::C_3a_www_test_2epl::face);
死ぬundef at C:/www/test.pl line 8.
私は期待していました"ugly" at C:/www/test.pl line 8.
代わりに私が
die pp(%ModPerl::ROOT::ModPerl::Registry::C_3a_www_test_2epl::);
...キャッシュされた変数をクリアするためにサービスを再起動した後、face
リストされていません。
die
このコードが最後に使用したときに機能していることを誓ったかもしれません...特定のローカル変数を取得してデバッグ情報をダンプできるように、ローカル変数に名前を付けるこの方法の周りにフック全体を書きました。
ローカル名前空間は何ですか?