From: Alan T. DeKok <aland@freeradius.org>
Date: Mon, 8 Jun 2015 14:23:47 +0000 (-0400)
Subject: Stupid Perl changes it's parsing rules.  Fixes #1035
X-Git-Tag: release_3_0_9~225
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b9edd82908848e90a723a3b0c74cbc62a29f0d10;p=thirdparty%2Ffreeradius-server.git

Stupid Perl changes it's parsing rules.  Fixes #1035
---

diff --git a/share/format.pl b/share/format.pl
index 81055119e8c..1f3b6ef73d2 100755
--- a/share/format.pl
+++ b/share/format.pl
@@ -71,7 +71,7 @@ while (@ARGV) {
 	#
 	#  Remember the vendor
 	#
-	if (/^VENDOR\s+([\w-]+)\s+(\w+)(.*)/) {
+	if (/^VENDOR\s+([-\w]+)\s+(\w+)(.*)/) {
 	    $name=$1;
 	    $len = length $name;
 	    if ($len < 32) {