Net :: SSL是Crypt :: SSLeay的一部分.在今天处理一个错误报告时,我被这个可怜的老人出现多少次而分心.
例如,考虑Net :: SSL :: configure：
*$self->{ssl_version} = $ssl_version;
*$self->{ssl_debug} = $ssl_debug;
*$self->{ssl_arg} = $arg;
*$self->{ssl_peer_addr} = $arg->{PeerAddr};
*$self->{ssl_peer_port} = $arg->{PeerPort};
也许是因为我不熟悉5.8 Prel,但我无法确定在LHS上使用*是否有重要原因.不仅仅是* $self-> {ssl_peer_port} = $arg-> {PeerPort};够了吗？或者,这里有什么深刻的东西(例如本地$_与本地* _)？
解决方法
我没有安装模块,所以不能轻易检查,但我认为这是因为对象是一个globref;也就是说,提到了祝福的类型.
这里没有混叠.当你写作
*$self->{ssl_debug} = $ssl_debug;
它首先将globref变回一个完整的类型.然后它只抓取typeglob的hashref方面并继续取消引用它.
这不是5.8之前或之后的事情.
你觉得它在做什么？