From 6466ce552b8cf9e5c2548645016846b7697588eb Mon Sep 17 00:00:00 2001
From: Stephen Hemminger <stephen.hemminger@vyatta.com>
Date: Wed, 28 Jan 2009 08:56:17 -0800
Subject: check-as-prepend: turn on strict

And reindent.
---
 scripts/policy/vyatta-check-as-prepend.pl | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

(limited to 'scripts/policy/vyatta-check-as-prepend.pl')

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;
-- 
cgit v1.2.3