diff options
| author | Stig Thormodsrud <stig@vyatta.com> | 2008-07-10 17:58:21 -0700 |
|---|---|---|
| committer | Stig Thormodsrud <stig@vyatta.com> | 2008-07-10 17:58:21 -0700 |
| commit | 0cda6a40b32c442df5e3ae3e8513bb19bc219d7e (patch) | |
| tree | 532ff9ccbb6dbd7155d731f79675515f3f78cfcb /scripts/policy/vyatta-policy.pl | |
| parent | ecd3520bc4456c79a10ced4434e3779087d09793 (diff) | |
| download | vyatta-cfg-quagga-0cda6a40b32c442df5e3ae3e8513bb19bc219d7e.tar.gz vyatta-cfg-quagga-0cda6a40b32c442df5e3ae3e8513bb19bc219d7e.zip | |
Fix 2752: "Unknown command" after "source any" was configured in the second rule of an access-list
Diffstat (limited to 'scripts/policy/vyatta-policy.pl')
| -rwxr-xr-x | scripts/policy/vyatta-policy.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/policy/vyatta-policy.pl b/scripts/policy/vyatta-policy.pl index 72427b51..5e77a322 100755 --- a/scripts/policy/vyatta-policy.pl +++ b/scripts/policy/vyatta-policy.pl @@ -109,7 +109,7 @@ sub update_as_path() { @rules = $config->listNodes(); foreach $rule (sort numerically @rules) { - my $action, $regex = ''; + my ($action, $regex) = ''; # set the action $action = $config->returnValue("$rule action"); @@ -159,7 +159,7 @@ sub update_access_list() { @rules = $config->listNodes(); foreach $rule (sort numerically @rules) { - my $ip, $action, $src, $dst, $srcmsk, $dstmsk = ''; + my ($ip, $action, $src, $dst, $srcmsk, $dstmsk) = ''; # set the action $action = $config->returnValue("$rule action"); |