/usr/share/perl5/Net/SNMP/Transport/IPv6/UDP.pm is in libnet-snmp-perl 6.0.1-2.
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 | # -*- mode: perl -*-
# ============================================================================
package Net::SNMP::Transport::IPv6::UDP;
# $Id: UDP.pm,v 3.0 2009/09/09 15:05:33 dtown Rel $
# Object that handles the UDP/IPv6 Transport Domain for the SNMP Engine.
# Copyright (c) 2004-2009 David M. Town <dtown@cpan.org>
# All rights reserved.
# This program is free software; you may redistribute it and/or modify it
# under the same terms as the Perl 5 programming language system itself.
# ============================================================================
use strict;
use Net::SNMP::Transport::IPv4::UDP qw( DOMAIN_UDPIPV6 DOMAIN_UDPIPV6Z );
## Version of the Net::SNMP::Transport::UDP6 module
our $VERSION = v3.0.0;
## Handle importing/exporting of symbols
use base qw( Net::SNMP::Transport::IPv6 Net::SNMP::Transport::IPv4::UDP );
## RFC 3411 - snmpEngineMaxMessageSize::=INTEGER (484..2147483647)
sub MSG_SIZE_DEFAULT_UDP6 { 1452 } # Ethernet(1500) - IPv6(40) - UDP(8)
# [public methods] -----------------------------------------------------------
sub domain
{
return DOMAIN_UDPIPV6; # transportDomainUdpIpv6
}
sub type
{
return 'UDP/IPv6'; # udpIpv6(2)
}
# [private methods] ----------------------------------------------------------
sub _msg_size_default
{
return MSG_SIZE_DEFAULT_UDP6;
}
sub _tdomain
{
return $_[0]->_scope_id($_[1]) ? DOMAIN_UDPIPV6Z : DOMAIN_UDPIPV6;
}
# ============================================================================
1; # [end Net::SNMP::Transport::IPv6::UDP]
|