Make perl modules version-neutral

Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2011-07-10 15:10:27 -07:00
parent 11c580de54
commit d1b8d7b953
15 changed files with 15 additions and 15 deletions

View File

@ -35,7 +35,7 @@ use strict;
our @ISA = qw(Exporter);
our @EXPORT = qw( setup_accounting );
our @EXPORT_OK = qw( );
our $VERSION = '4.4_21';
our $VERSION = 'MODULEVERSION';
#
# Per-IP accounting tables. Each entry contains the associated network.

View File

@ -192,7 +192,7 @@ our %EXPORT_TAGS = (
Exporter::export_ok_tags('internal');
our $VERSION = '4.4_21';
our $VERSION = 'MODULEVERSION';
#
# Chain Table

View File

@ -41,7 +41,7 @@ use Shorewall::Misc;
our @ISA = qw(Exporter);
our @EXPORT = qw( compiler );
our @EXPORT_OK = qw( $export );
our $VERSION = '4.4_21';
our $VERSION = 'MODULEVERSION';
my $export;

View File

@ -150,7 +150,7 @@ our %EXPORT_TAGS = ( internal => [ qw( create_temp_script
Exporter::export_ok_tags('internal');
our $VERSION = '4.4_21';
our $VERSION = 'MODULEVERSION';
#
# describe the current command, it's present progressive, and it's completion.

View File

@ -80,7 +80,7 @@ our @EXPORT = qw( ALLIPv4
validate_icmp6
);
our @EXPORT_OK = qw( );
our $VERSION = '4.4_20';
our $VERSION = 'MODULEVERSION';
#
# Some IPv4/6 useful stuff

View File

@ -45,7 +45,7 @@ our @EXPORT = qw( process_tos
generate_matrix
);
our @EXPORT_OK = qw( initialize );
our $VERSION = '4.4_21';
our $VERSION = 'MODULEVERSION';
my $family;

View File

@ -36,7 +36,7 @@ use strict;
our @ISA = qw(Exporter);
our @EXPORT = qw( setup_masq setup_nat setup_netmap add_addresses );
our @EXPORT_OK = ();
our $VERSION = '4.4_21';
our $VERSION = 'MODULEVERSION';
my @addresses_to_add;
my %addresses_to_add;

View File

@ -41,7 +41,7 @@ our @EXPORT = qw(
setup_forwarding
);
our @EXPORT_OK = qw( );
our $VERSION = '4.4_7';
our $VERSION = 'MODULEVERSION';
#
# ARP Filtering

View File

@ -35,7 +35,7 @@ use strict;
our @ISA = qw(Exporter);
our @EXPORT = qw( setup_providers @routemarked_interfaces handle_stickiness handle_optional_interfaces );
our @EXPORT_OK = qw( initialize lookup_provider );
our $VERSION = '4.4_21';
our $VERSION = 'MODULEVERSION';
use constant { LOCAL_TABLE => 255,
MAIN_TABLE => 254,

View File

@ -35,7 +35,7 @@ our @EXPORT = qw(
);
our @EXPORT_OK = qw( initialize );
our $VERSION = '4.4_19';
our $VERSION = 'MODULEVERSION';
our @proxyarp;

View File

@ -34,7 +34,7 @@ use strict;
our @ISA = qw(Exporter);
our @EXPORT = qw( setup_notrack );
our @EXPORT_OK = qw( );
our $VERSION = '4.4_14';
our $VERSION = 'MODULEVERSION';
#
# Notrack

View File

@ -52,7 +52,7 @@ our @EXPORT = qw(
);
our @EXPORT_OK = qw( initialize );
our $VERSION = '4.4_21';
our $VERSION = 'MODULEVERSION';
#
# Globals are documented in the initialize() function
#

View File

@ -40,7 +40,7 @@ use strict;
our @ISA = qw(Exporter);
our @EXPORT = qw( setup_tc );
our @EXPORT_OK = qw( process_tc_rule initialize );
our $VERSION = '4.4_21';
our $VERSION = 'MODULEVERSION';
my %tcs = ( T => { chain => 'tcpost',
connmark => 0,

View File

@ -35,7 +35,7 @@ use strict;
our @ISA = qw(Exporter);
our @EXPORT = qw( setup_tunnels );
our @EXPORT_OK = ( );
our $VERSION = '4.4_21';
our $VERSION = 'MODULEVERSION';
#
# Here starts the tunnel stuff -- we really should get rid of this crap...

View File

@ -85,7 +85,7 @@ our @EXPORT = qw( NOTHING
);
our @EXPORT_OK = qw( initialize );
our $VERSION = '4.4_21';
our $VERSION = 'MODULEVERSION';
#
# IPSEC Option types