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

diff --git a/share/format.pl b/share/format.pl
index 81055119e8c8a678f2e7da2908b529ec99be152b..1f3b6ef73d27cd941014a9a3a362c5de73e0cfdb 100755 (executable)
--- 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) {