Net::XMPP Perl 模块：Windows 系统上的 ssl 路径错误

Question

我尝试在运行 Strawberry Perl 的 Windows 10 机器上使用 perl 模块 Net::XMPP 连接到 XMPP 服务器，但出现以下错误：

Invalid or unreadable path specified for ssl_ca_path. at C:/strawberry/perl/site/lib/XML/Stream.pm line 640

我使用的代码如下：

#!/bin/perl -w

use strict;
use warnings;

use Net::XMPP;

my $con = new Net::XMPP::Client(); 

my $status = $con->Connect(  
    hostname => 'hostnamepart',  
    connectiontype => 'tcpip',  
    tls => 1);  
die('ERROR: XMPP connection failed') if ! defined($status);

我已经测试了我是否可以在我的 Windows 机器上使用 Pidgin 客户端应用程序连接到服务器并且它工作正常。

有什么办法可以解决我的 Perl 问题吗？

Answer 1

从源代码中我可以看出，ssl_ca_path 必须在使用 ssl => 1 或 tls => 1 时提供。 （可以是文件或目录。）

例如，相信您可以使用类似以下的方法来信任 Mozilla 信任的 CA。

use Mozilla::CA       qw( );
use Net::XMPP::Client qw( );

my $con = Net::XMPP::Client->new();

$con->Connect(  
    ...
    tls         => 1,
    ssl_ca_path => Mozilla::CA::SSL_ca_file(),
);