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/t | |
| parent | 93a5d7bfc07a41ef26fb3e3b298a7d88c3741ed1 (diff) | |
| download | perl-76d04ca39f974c1aee23c29a9dda0a643740c988.tar.gz | |
[rt.cpan.org #61577] propagate socket details on accept
Diffstat (limited to 'dist/IO/t')
| -rw-r--r-- | dist/IO/t/cachepropagate-tcp.t | 1 | ||||
| -rw-r--r-- | dist/IO/t/cachepropagate-unix.t | 1 |
2 files changed, 0 insertions, 2 deletions
diff --git a/dist/IO/t/cachepropagate-tcp.t b/dist/IO/t/cachepropagate-tcp.t index 6bc2efed91..b9104bba09 100644 --- a/dist/IO/t/cachepropagate-tcp.t +++ b/dist/IO/t/cachepropagate-tcp.t @@ -43,7 +43,6 @@ SKIP: { my $new = $listener->accept(); - local $TODO = "this information isn't cached for accepted sockets"; is($new->sockdomain(), $d, 'domain match'); SKIP: { skip "no Socket::SO_PROTOCOL", 1 if !defined(eval { Socket::SO_PROTOCOL }); diff --git a/dist/IO/t/cachepropagate-unix.t b/dist/IO/t/cachepropagate-unix.t index 3e3a73ab2f..2f8c55e1f8 100644 --- a/dist/IO/t/cachepropagate-unix.t +++ b/dist/IO/t/cachepropagate-unix.t @@ -47,7 +47,6 @@ SKIP: { my $new = $listener->accept(); - $TODO = "this information isn't cached for accepted sockets"; is($new->sockdomain(), $d, 'domain match'); SKIP: { skip "no Socket::SO_PROTOCOL", 1 if !defined(eval { Socket::SO_PROTOCOL }); |