Mojolicious 从一分钟到下一分钟突然停止工作

Question

几天前，我在本地机器上安装了 Mojolicious 包，因为我需要在我的生产服务器上的 Perl 程序之一中实现一个 websocket。它安装没有问题，我能够运行一个简单的测试脚本：

use strict;
use warnings;

use Mojo::UserAgent;
use Mojo::IOLoop;

# Open WebSocket
my $ua = Mojo::UserAgent->new;

$ua->insecure(1); # Otherwise the handshake will fail

$ua->websocket('wss://some.server.com' => sub {
  my ($ua, $tx) = @_;

  # Check if WebSocket handshake was successful
  unless( $tx->is_websocket ) {
    print "Handshake failed!\n";
    return;
  }

  # Wait for WebSocket to be closed
  $tx->on(finish => sub {
    my ($tx, $code, $reason) = @_;
    print "WebSocket closed with status $code.\n";
  });

  # Close WebSocket after receiving one message
  $tx->on(message => sub {
    my ($tx, $msg) = @_;
    print "WebSocket message: $msg\n";
    $tx->finish;
  });

  # Send a message to the server
  print "Sending...\n";
  $tx->send("Hi there!");

});

# Start event loop if necessary
Mojo::IOLoop->start unless Mojo::IOLoop->is_running;

print "Done!\n";

我正在一台服务器上测试这个，它的证书有一个小问题，这就是我添加这一行的原因：

$ua->insecure(1); # Otherwise the handshake will fail

当我最终通过添加这一行让它工作时，我在我的生产服务器上安装了 Mojolicious，复制了上面的 perl 脚本，它在那里也运行得很好。

然后我回到我本地机器上的脚本并再次运行它。令我惊讶的是，我现在收到一条错误消息：

无法通过包“Mojo::UserAgent”在 test009.pl 第 14 行、第 2231 行找到对象方法“不安全”。

我重新安装了 Mojolicious 几次，但每次运行脚本时都会出现此错误。删除该行只会导致脚本什么都不做。它不会打印“握手失败”消息，也不会打印任何其他消息。甚至没有“完成！” 信息。

看起来它只是在websocket()被调用后立即停止......

我现在不知所措。我完全不知道为什么它不再起作用了。我的本地机器上的 Perl 环境没有任何改变......

这是我本地机器上的更多信息

• Windows 7 专业版 64 位 SP1
• ActivePerl 5.16.2
• 魔幻 6.64

任何人都可以提供一些关于发生了什么的提示吗？或者最好，如何让它再次工作？

Answer 1

从Mojolicious 更改日志：

7.80 2018-05-20

• 许多用户希望 Mojo::UserAgent 默认会验证所有 TLS 证书。不幸的是，到目前为止情况并非如此，但为了加强安全性，此版本将有所改变。默认情况下，Mojo::UserAgent 现在将拒绝所有无效的 TLS 证书。要返回之前的行为，您可以使用新insecure属性。

  $ua->insecure(1);
  

insecure是 7.80 中的新功能。你的 Mojolicious 6.64 太旧了。

你说

我重新安装了 Mojolicious 几次，但每次运行脚本时都会出现此错误。

要么您没有安装最新版本，要么您的脚本以某种方式仍然选择了旧版本（目录搜索顺序问题？）。

如果你想让你的代码在新旧版本之间保持兼容（和不安全），

$ua->insecure(1) if $ua->can('insecure');

应该管用。