Reindent perl code

Make it look nice and tidy

1 files changed, 36 insertions, 35 deletions

diff --git a/scripts/vyatta_quagga_utils.pl b/scripts/vyatta_quagga_utils.pl
index 55254cbb..1d85b431 100755
--- a/scripts/vyatta_quagga_utils.pl
+++ b/scripts/vyatta_quagga_utils.pl
@@ -6,12 +6,13 @@ use Vyatta::Misc;
 use NetAddr::IP;
 use Getopt::Long;
 
-my ($prefix, $exists, $not_exists, $area);
+my ( $prefix, $exists, $not_exists, $area );
 
-GetOptions("check-prefix-boundry=s" => \$prefix,
-           "not-exists=s"           => \$not_exists,
-	   "exists=s"		    => \$exists,
-	   "check-ospf-area=s"      => \$area,
+GetOptions(
+    "check-prefix-boundry=s" => \$prefix,
+    "not-exists=s"           => \$not_exists,
+    "exists=s"               => \$exists,
+    "check-ospf-area=s"      => \$area,
 );
 
 check_prefix_boundry($prefix) if ($prefix);
@@ -22,52 +23,52 @@ check_ospf_area($area)        if ($area);
 exit 0;
 
 sub check_prefix_boundry {
-  my $prefix = shift;
-  my ($net, $network, $cidr);
-
-  $net = new NetAddr::IP $prefix;
-  $network = $net->network()->cidr();
-  $cidr    = $net->cidr();
-
-  die "Your prefix must fall on a natural network boundry.  ", 
-       "Did you mean $network?\n"
-      if ($cidr ne $network);
-  
-  exit 0;
+    my $prefix = shift;
+    my ( $net, $network, $cidr );
+
+    $net     = new NetAddr::IP $prefix;
+    $network = $net->network()->cidr();
+    $cidr    = $net->cidr();
+
+    die "Your prefix must fall on a natural network boundry.  ",
+      "Did you mean $network?\n"
+      if ( $cidr ne $network );
+
+    exit 0;
 }
 
 sub check_exists {
-  my $node = shift;
-  my $config = new Vyatta::Config;
+    my $node   = shift;
+    my $config = new Vyatta::Config;
 
-  exit 0 if $config->exists($node);
-  exit 1;
+    exit 0 if $config->exists($node);
+    exit 1;
 }
 
 sub check_not_exists {
-  my $node = shift;
-  my $config = new Vyatta::Config;
+    my $node   = shift;
+    my $config = new Vyatta::Config;
 
-  exit 0 if ! $config->exists($node);
-  exit 1;
+    exit 0 if !$config->exists($node);
+    exit 1;
 }
 
 sub check_ospf_area {
     my $area = shift;
 
     #
-    # allow both decimal or dotted decimal 
+    # allow both decimal or dotted decimal
     #
-    if ($area =~ m/^\d+$/) {
-	if ($area >= 0 && $area <= 4294967295) {
-	    exit 0;
-	}
+    if ( $area =~ m/^\d+$/ ) {
+        if ( $area >= 0 && $area <= 4294967295 ) {
+            exit 0;
+        }
     }
-    if ($area =~ m/^(\d+)\.(\d+)\.(\d+)\.(\d+)$/) {
-	foreach my $octet ($1, $2, $3, $4) {
-	    if (($octet < 0) || ($octet > 255)) { exit 1; }
-	}
-	exit 0
+    if ( $area =~ m/^(\d+)\.(\d+)\.(\d+)\.(\d+)$/ ) {
+        foreach my $octet ( $1, $2, $3, $4 ) {
+            if ( ( $octet < 0 ) || ( $octet > 255 ) ) { exit 1; }
+        }
+        exit 0;
     }
 
     die "Invalid OSPF area: $area\n";