regex - 为什么加载 Test::More 可以消除我的错误？

Question

我正在尝试为 this bug 编写测试.我已经找到了该错误的解决方案；我不明白的是为什么我的测试在发布之前没有发现错误。

问题归结为这个命令行打印Ver: 0什么时候应该打印 Ver: 1.00 :

perl -Mversion -e 'printf "Ver: %s\n", ("v1.00" =~ /v(.+)/ ? version->parse($1) : "no");'

但是，如果您插入 -MTest::More之前 -Mversion ，然后打印 Ver: 1.00 .

所以我的问题是为什么加载 Test::More改变我的代码的行为？ (对于奖励积分，为什么使用 "$1" 而不是 $1 可以消除错误？)

我使用的是 Perl 5.14.2、Test::More 0.98 和 0.88 版。

Answer 1

这是版本的错误。 $1是magic var，并且version 在检查arg 是否已定义之前无法处理magic。它认为$1如果没有人读过 $1，则未定义.如果有人阅读了 $1 (例如 Test::More)，然后它似乎定义为版本。

$ perl -Mversion -E'
    "v1.00" =~ /v(.+)/ or die;
    $x=$1 if $ARGV[0];
    say version->parse($1);
' 0
0

$ perl -Mversion -E'
    "v1.00" =~ /v(.+)/ or die;
    $x=$1 if $ARGV[0];
    say version->parse($1);
' 1
1.00

我已提交错误报告: Perl RT#115660