diff options
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/policy/vyatta-check-as-prepend.pl | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/scripts/policy/vyatta-check-as-prepend.pl b/scripts/policy/vyatta-check-as-prepend.pl index a34ca0a7..ba2c4f3e 100755 --- a/scripts/policy/vyatta-check-as-prepend.pl +++ b/scripts/policy/vyatta-check-as-prepend.pl @@ -1,10 +1,11 @@ #!/usr/bin/perl -@as_list = split(' ',$ARGV[0]); -foreach $as (@as_list) { - if ($as =~ /[^\d\s]/ || $as < 1 || $as > 4294967294) { exit 1;} -} -if (scalar(@as_list) > 24) { - print "Error: max 24 as paths"; - exit 1; +use strict; + +my @as_list = split( ' ', $ARGV[0] ); +foreach my $as (@as_list) { + exit 1 if ( $as =~ /[^\d\s]/ || $as < 1 || $as > 4294967294 ); } + +die "Error: max 24 as path\n" if ( scalar(@as_list) > 24 ); + exit 0; |