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;