为什么Perl的字符串乘法不会在undef上发出警告？

Question

在

use strict; 
use warnings; 
my $foo = undef; 

表达式

$foo . '' 

和

"$foo" 

都产生

Use of uninitialized value $foo in ... at ... 

但下面的表达产生了第e没有警告的空字符串：

$foo x 1 

任何人都知道为什么？我的意思是，有一个很好的字符串成语很酷（$_ x 1比defined ? "$_" : ''短得多），但它感觉有点奇怪。

Answer 1

我曾经在一所法学院的课堂上看过一场场景。讲师向他的学生们提出了两个类似的案例，并问他们为什么会导致不同的裁决。这是因为裁决是由裁判做出的，裁判是人，他最终解释说。

应该警告。从事Perl工作的开发人员是人。如果您愿意，运行perlbug发送错误报告。