為什么Net :: SSL中的代碼解除引用typeglobs，我看不到需要？

Question

Net::SSL是Crypt :: SSLeay的一部分。 雖然今天的bug報告工作，我被多少次可憐的老分心*露面。

例如，考慮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}; 夠了嗎？ 或者，這里有什么深刻的東西（例如local $_與local *_ ）？

Answer 1

我沒有安裝模塊，所以不能輕易檢查，但我認為這是因為對象是一個globref; 也就是說，提到了祝福的類型。

這里沒有混疊。 當你寫作

 *$self->{ssl_debug} = $ssl_debug;

它首先將globref變回一個完整的類型。 然后它只抓取typeglob的hashref方面並繼續取消引用它。

這不是5.8之前或之后的事情。

你覺得它在做什么？

Answer 2

tchrist（一如既往）走在正確的軌道上。 你可以玩IO::Socket ，看看你能做什么，不能做什么來引用祝福的typeglobs。

use IO::Socket;
$foo = IO::Socket->new;

print $foo;                      # IO::Socket=GLOB(0x20467b18)
print *$foo;                     # *Symbol::GEN0
print ref($foo);                 # IO::Socket
print ref(*$foo);                # ""

*$foo->{key} = value;            # ok
$$foo->{key} = value;            # ok
$foo->{key} = value;             # Not a HASH reference at ...