diff options
| author | James E Keenan <jkeenan@cpan.org> | 2015-08-21 20:24:52 -0400 |
|---|---|---|
| committer | James E Keenan <jkeenan@cpan.org> | 2015-08-22 08:47:00 -0400 |
| commit | e232e1471fc6854903502b7d210a17ada02fa6ac (patch) | |
| tree | eeb1d3090273b0a17e6badca2ed4b9f002350ae9 /pod/perlipc.pod | |
| parent | 1dd11b288e33cbfb2c118b3331deea55b597b4d7 (diff) | |
| download | perl-e232e1471fc6854903502b7d210a17ada02fa6ac.tar.gz | |
Remove superfluous line in code sample.
Per suggestion by Egor Korablev in RT #125860.
Diffstat (limited to 'pod/perlipc.pod')
| -rw-r--r-- | pod/perlipc.pod | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/pod/perlipc.pod b/pod/perlipc.pod index 49c605b638..33362c19ef 100644 --- a/pod/perlipc.pod +++ b/pod/perlipc.pod @@ -978,8 +978,6 @@ or firewall machine), fill this in with your real address instead. my $paddr; - $SIG{CHLD} = \&REAPER; - for ( ; $paddr = accept(Client, Server); close Client) { my($port, $iaddr) = sockaddr_in($paddr); my $name = gethostbyaddr($iaddr, AF_INET); |