为什么'exists'要修改我的常数?

这个 exists 函数can unexpectedly autovivify entries 在散列中。

令我惊讶的是,这种行为也会延续到常数:

use strict;
use warnings;
use Data::Dump 'dump';

use constant data => {
                       'foo' => {
                                  'bar' => 'baz',
                                },
                       'a'   => {
                                  'b'   => 'c',
                                }
                     };

dump data;   # Pre-modified

print "No data for 'soda->cola->pop'\n" unless exists data->{soda}{cola}{pop};

dump data;   # data->{soda}{cola} now sprung to life

输出

{ a => { b => "c" }, foo => { bar => "baz" } }
No data for 'soda->cola->pop'
{ a => { b => "c" }, foo => { bar => "baz" }, soda => { cola => {} } }

我怀疑这是个虫子。这是特定于5.10.1的,还是其他版本的Perl的行为类似?