|
Packit Service |
64bc36 |
#!/usr/bin/perl
|
|
Packit Service |
64bc36 |
|
|
Packit Service |
64bc36 |
use strict;
|
|
Packit Service |
64bc36 |
use warnings;
|
|
Packit Service |
64bc36 |
|
|
Packit Service |
64bc36 |
use Test::More;
|
|
Packit Service |
64bc36 |
|
|
Packit Service |
64bc36 |
use IO::Socket::IP;
|
|
Packit Service |
64bc36 |
use Socket qw( AF_INET SOCK_STREAM );
|
|
Packit Service |
64bc36 |
|
|
Packit Service |
64bc36 |
socket( my $tmph, AF_INET, SOCK_STREAM, 0 ) or die "Cannot socket() - $!";
|
|
Packit Service |
64bc36 |
|
|
Packit Service |
64bc36 |
my $socket = IO::Socket::IP->new or die "Cannot create IO::Socket::IP - $@";
|
|
Packit Service |
64bc36 |
|
|
Packit Service |
64bc36 |
$socket->socket( AF_INET, SOCK_STREAM, 0 ) or die "Cannot socket() - $!";
|
|
Packit Service |
64bc36 |
my $fileno = $socket->fileno;
|
|
Packit Service |
64bc36 |
|
|
Packit Service |
64bc36 |
$socket->socket( AF_INET, SOCK_STREAM, 0 ) or die "Cannot socket() - $!";
|
|
Packit Service |
64bc36 |
|
|
Packit Service |
64bc36 |
is( $socket->fileno, $fileno, '$socket->fileno preserved after ->socket' );
|
|
Packit Service |
64bc36 |
|
|
Packit Service |
64bc36 |
close $tmph;
|
|
Packit Service |
64bc36 |
|
|
Packit Service |
64bc36 |
$socket->socket( AF_INET, SOCK_STREAM, 0 ) or die "Cannot socket() - $!";
|
|
Packit Service |
64bc36 |
|
|
Packit Service |
64bc36 |
is( $socket->fileno, $fileno, '$socket->fileno preserved after ->socket with free handle' );
|
|
Packit Service |
64bc36 |
|
|
Packit Service |
64bc36 |
done_testing;
|