Fix check_prefix_boundry() to handle IPv6 abreviated addresses.

1 files changed, 6 insertions, 4 deletions

diff --git a/scripts/vyatta_quagga_utils.pl b/scripts/vyatta_quagga_utils.pl
index e2e871f8..8806e120 100644
--- a/scripts/vyatta_quagga_utils.pl
+++ b/scripts/vyatta_quagga_utils.pl
@@ -20,12 +20,14 @@ exit 0;
 
 sub check_prefix_boundry() {
   my $prefix = shift;
-  my $net, $cidr;
+  my ($net, $network, $cidr);
 
   $net = new NetAddr::IP $prefix;
-  $cidr = $net->network();
-  if ( "$cidr" ne "$prefix" ) {
-    print "Your prefix must fall on a natural network boundry.  Did you mean $cidr?\n";
+  $network = $net->network();
+  $cidr    = $net->cidr();
+  if ("$cidr" ne "$network") {
+    print "Your prefix must fall on a natural network boundry.  ", 
+          "Did you mean $network?\n";
     exit 1;
   }