Fix typo
[freeradius.git] / share / format.pl
index 0c816a0..cad3ded 100755 (executable)
@@ -19,11 +19,11 @@ $blank = 0;
 
 while (@ARGV) {
     $filename = shift;
-    
+
     open FILE, "<$filename" or die "Failed to open $filename: $!\n";
-    
+
     @output = ();
-    
+
     while (<FILE>) {
        #
        #  Clear out trailing whitespace
@@ -66,11 +66,17 @@ while (@ARGV) {
            next;
        }
 
-       #  
+       #
        #  Remember if we did begin-vendor.
        #
        if (/^BEGIN-VENDOR\s+([\w-]+)/) {
            $begin_vendor = 1;
+           if (!defined $vendor) {
+               $vendor = $1;
+           } elsif ($vendor ne $1) {
+               # do something smart
+           }
+
            push @output, "BEGIN-VENDOR\t$vendor\n";
            next;
        }