diff options
| author | Stephen Hemminger <stephen.hemminger@vyatta.com> | 2009-02-03 08:58:08 -0800 |
|---|---|---|
| committer | Stephen Hemminger <stephen.hemminger@vyatta.com> | 2009-02-03 08:58:08 -0800 |
| commit | 670de26785f26e7ead9ec9ffbca8f96c1689bdd6 (patch) | |
| tree | 48d05b67a8a275771dfb38bea475723f3e6b71a4 /lib/Vyatta/IpTables/Rule.pm | |
| parent | 54cbf7c27289dc2068ac89cfa893f0a6997f60a3 (diff) | |
| download | vyatta-cfg-firewall-670de26785f26e7ead9ec9ffbca8f96c1689bdd6.tar.gz vyatta-cfg-firewall-670de26785f26e7ead9ec9ffbca8f96c1689bdd6.zip | |
Enable strict checking
Enable strict perl checking.
Diffstat (limited to 'lib/Vyatta/IpTables/Rule.pm')
| -rw-r--r-- | lib/Vyatta/IpTables/Rule.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lib/Vyatta/IpTables/Rule.pm b/lib/Vyatta/IpTables/Rule.pm index 6fb2a13..d0fde5f 100644 --- a/lib/Vyatta/IpTables/Rule.pm +++ b/lib/Vyatta/IpTables/Rule.pm @@ -1,5 +1,6 @@ package Vyatta::IpTables::Rule; +use strict; use Vyatta::Config; require Vyatta::IpTables::AddressFilter; @@ -332,9 +333,7 @@ sub get_num_ipt_rules { sub rule { my ( $self ) = @_; - my $rule = undef; - my $srcrule = $dstrule = undef; - my $err_str = undef; + my ($rule, $srcrule, $dstrule, $err_str); # set CLI rule num as comment my @level_nodes = split (' ', $self->{_comment}); @@ -605,7 +604,7 @@ sub validate_timevalues { case "time" { $string =~ s/://g; my ($hour, $min, $sec) = unpack "A2 A2 A2", $string; - eval { timelocal($sec,$min,$hour, 01, 00, 1970); + eval { timelocal($sec,$min,$hour, 1, 0, 1970); 1; } or return 0; } |