← Back to branch summary

~ubuntu-branches/debian/sid/shorewall/sid

« back to all changes in this revision

Viewing changes to Perl/Shorewall/IPAddrs.pm

  • Committer: Package Import Robot
  • Author(s): Roberto C. Sanchez
  • Date: 2013-09-24 19:17:20 UTC
  • mfrom: (1.3.53)
  • Revision ID: package-import@ubuntu.com-20130924191720-zn2nxs9sjn117ypr
Tags: 4.5.20-1
http://bugs.debian.org/712282
http://bugs.debian.org/686909
* New Upstream Version (Closes: #712282, #686909)
* Update to Standards-Version 3.9.4 (no changes)

Show diffs side-by-side

added added

removed removed

Lines of Context:
Perl/Shorewall/IPAddrs.pm
79
79
                  validate_icmp6
80
80
                 ) );
81
81
our @EXPORT_OK = qw( );
82
 
our $VERSION = '4.5_15';
 
82
our $VERSION = '4.5_17';
83
83
 
84
84
#
85
85
# Some IPv4/6 useful stuff
174
174
 
175
175
    @addrs;
176
176
} 
177
 
    
178
177
 
179
178
sub decodeaddr( $ ) {
180
179
    my $address = $_[0];
768
767
                        'destination-unreachable'    => 1,
769
768
                        'no-route'                   => '1/0',
770
769
                        'communication-prohibited'   => '1/1',
771
 
                        'address-unreachable'        => '1/2',
772
 
                        'port-unreachable'           => '1/3',
 
770
                        'address-unreachable'        => '1/3',
 
771
                        'port-unreachable'           => '1/4',
773
772
                        'packet-too-big'             =>  2,
774
773
                        'time-exceeded'              =>  3,
775
774
                        'ttl-exceeded'               =>  3,