/usr/lib/perl5/Socket/Linux.pm is in libsocket-linux-perl 0.01-1build2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 | package Socket::Linux;
our $VERSION = '0.01';
use strict;
use warnings;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(TCP_NODELAY TCP_MAXSEG TCP_CORK TCP_KEEPIDLE
TCP_KEEPINTVL TCP_KEEPCNT TCP_SYNCNT TCP_LINGER2
TCP_DEFER_ACCEPT TCP_WINDOW_CLAMP TCP_INFO
TCP_QUICKACK TCP_CONGESTION TCP_MD5SIG
TCPOPT_EOL TCPOPT_NOP TCPOPT_MAXSEG TCPOLEN_MAXSEG
TCPOPT_WINDOW TCPOLEN_WINDOW TCPOPT_SACK_PERMITTED
TCPOLEN_SACK_PERMITTED TCPOPT_SACK
TCPOPT_TIMESTAMP TCPOLEN_TIMESTAMP
TCPOLEN_TSTAMP_APPA TCPOPT_TSTAMP_HDR
TCP_MSS TCP_MAXWIN TCP_MAX_WINSHIFT SOL_TCP
TCPI_OPT_TIMESTAMPS TCPI_OPT_SACK TCPI_OPT_WSCALE
TCPI_OPT_ECN
TCP_MD5SIG_MAXKEYLEN);
require XSLoader;
XSLoader::load('Socket::Linux', $VERSION);
1;
__END__
=head1 NAME
Socket::Linux - Socket constants defined in Linux <netinet/tcp.h>
=head1 SYNOPSIS
use Socket qw(IPPROTO_TCP);
use Socket::Linux qw(TCP_KEEPINTVL TCP_KEEPIDLE TCP_KEEPCNT);
setsockopt($sock, IPPROTO_TCP, TCP_KEEPIDLE, 10);
setsockopt($sock, IPPROTO_TCP, TCP_KEEPINTVL, 10);
setsockopt($sock, IPPROTO_TCP, TCP_KEEPCNT, 3);
=head1 DESCRIPTION
Exports to perl the constants defined in Linux <netinet/tcp.h>
=head1 SEE ALSO
L<Socket>, L<perlfunc>, L<tcp(7)>.
=head1 AUTHOR
Salvador FandiE<ntilde>o (sfandino@yahoo.com)
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2010 by Qindel FormaciE<oacute>n y Servicios SL.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.10.1 or,
at your option, any later version of Perl 5 you may have available.
=cut
|