1#!/usr/bin/perl 2 3use v5.14; 4use warnings; 5 6use Test::More; 7 8use IO::Socket::IP; 9use Socket qw( AF_INET SOCK_STREAM ); 10 11socket( my $tmph, AF_INET, SOCK_STREAM, 0 ) or die "Cannot socket() - $!"; 12 13my $socket = IO::Socket::IP->new or die "Cannot create IO::Socket::IP - $IO::Socket::errstr"; 14 15$socket->socket( AF_INET, SOCK_STREAM, 0 ) or die "Cannot socket() - $!"; 16my $fileno = $socket->fileno; 17 18$socket->socket( AF_INET, SOCK_STREAM, 0 ) or die "Cannot socket() - $!"; 19 20is( $socket->fileno, $fileno, '$socket->fileno preserved after ->socket' ); 21 22close $tmph; 23 24$socket->socket( AF_INET, SOCK_STREAM, 0 ) or die "Cannot socket() - $!"; 25 26is( $socket->fileno, $fileno, '$socket->fileno preserved after ->socket with free handle' ); 27 28done_testing; 29