perl – 为什么Net :: SSL中的代码解除引用typeglobs,我看不到需要？

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之前或之后的事情.

你觉得它在做什么？