diff options
| author | Tony Cook <tony@develop-help.com> | 2012-06-13 19:32:33 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2012-07-02 18:23:05 +1000 |
| commit | 76d04ca39f974c1aee23c29a9dda0a643740c988 (patch) | |
| tree | 38b39355416b8aaeca3840a3f75c7234f519cc80 /dist/IO/lib | |
| parent | 93a5d7bfc07a41ef26fb3e3b298a7d88c3741ed1 (diff) | |
| download | perl-76d04ca39f974c1aee23c29a9dda0a643740c988.tar.gz | |
[rt.cpan.org #61577] propagate socket details on accept
Diffstat (limited to 'dist/IO/lib')
| -rw-r--r-- | dist/IO/lib/IO/Socket.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/dist/IO/lib/IO/Socket.pm b/dist/IO/lib/IO/Socket.pm index 529423b5fd..5d4b19e2ab 100644 --- a/dist/IO/lib/IO/Socket.pm +++ b/dist/IO/lib/IO/Socket.pm @@ -249,6 +249,8 @@ sub accept { $peer = accept($new,$sock) or return; + ${*$new}{$_} = ${*$sock}{$_} for qw( io_socket_domain io_socket_type io_socket_proto ); + return wantarray ? ($new, $peer) : $new; } |