我无法评估Perl调试器中的“现代perl”代码.调试文件中的代码但不是提示时,它可以正常工作.
最小例子：
# activating 5-10 features with -E (it works) $ perl -E 'say "x"' x
# calling the debugger with -E
# it works for infile code but for prompt line code...
$ perl -dEbug Loading DB routines from perl5db.pl version 1.33
DB say "x"
String found where operator expected at (eval 16)[/local-perl/lib/5.12.1/perl5db.pl:638] line 2,near "say "x""
at (eval 16)[/local-perl/lib/5.12.1/perl5db.pl:638] line 2
eval '($@,$!,$^E,$,$/,$\\,$^W) = @saved;package main; $^D = $^D | $DB::db_stop;say "x";
[注意：与“使用功能”相同：5.10’“]
我错过了什么吗？
解决方法
这是一个有趣的问题,一个我从来没有想过的,所以就这么认为.
我发现参考这个问题here,但大约一岁.但是,perl源的相关部分并没有改变,可以看出here.基本上,如果您在perl源代码中查看toke.c,您将看到以下内容：
if (PL_perldb) {
/* Generate a string of Perl code to load the debugger.
* If PERL5DB is set,it will return the contents of that,* otherwise a compile-time require of perl5db.pl. */
const char * const pdb = PerlEnv_getenv("PERL5DB");
...
}
...
if (PL_minus_E)
sv_catpvs(PL_linestr,"use feature ':5." STRINGIFY(PERL_VERSION) "';");
基本上,在处理-E标志之前加载调试器,因此当调试器加载时,功能尚未启用.这一点的主要目的是您现在无法使用-d命令使用-E.如果要使用说明,开关或任何其他功能从调试提示符,您必须这样做：
DB<1> use feature 'say'; say "x" x
我见过最近的一个解决方案是：
- copy perl5db.pl from your PERL5LIB to either somewhere in PERL5LIB or the current directory,with a different name,say myperl5db.pl
- Edit myperl5db.pl to have use feature ‘:5.10’; (or just ‘state’,or just ‘say’) on the first line.
- Set the environment variable PERL5DB to “BEGIN { require ‘myperl5db.pl’ }”
我发现在PerlMonks.