Perl抛出“引用上的键是实验性的”

Question

开发环境是OS X 10.10.3，Perl -v

This is perl 5, version 18, subversion 2 (v5.18.2) built for darwin-thread-multi-2level
(with 2 registered patches, see perl -V for more detail)

以下是问题

我将项目从本地环境移动到Windows Server，现在我收到以下错误：

＆＃34;引用的密钥在CGI / Router.pm第94行进行试验。＆＃34;

模块第94行显示

my $num_regexes = scalar keys $token_regexes;

可以在https://github.com/kristiannissen/CGIRouter

找到整个模块

我像这样实例化路由器模块

$router->add_route( 'GET', '/home', sub {
 print header( -type => 'text/html', -charset => 'utf-8' );

 print "Hello Pussy";
});

我在本地没有这个问题，但现在我正在转向生产服务器，我遇到了这个问题。据我所知，它与特定的Perl版本有关，但在我要求提供商升级Perl之前，我想我能做些什么来避免这个问题？

Answer 1

密钥的文档perldoc keys，有关于在哈希引用上使用密钥的说法：

  

从Perl 5.14开始，键可以采用标量EXPR，它必须包含对未经处理的散列或数组的引用。该参数将自动解除引用。钥匙的这个方面被认为是高度实验性的。在未来的Perl版本中，确切的行为可能会发生变化。

for (keys $hashref) { ... }

为避免此问题，升级Perl无济于事。需要更新模块以按预期方式使用密钥，而不是使用实验性功能。也就是说，它需要在调用keys之前取消引用hashref。

具体来说，改变

my $num_regexes = scalar keys $token_regexes;

到

my $num_regexes = scalar keys %$token_regexes;