add and escape before $( in regex string so it is not interpreted as the

perl variable for "real gid of this process"

diff --git a/source/script/genstruct.pl b/source/script/genstruct.pl
index e6d30773d6441ef1a5f5a9970fe6bac07bfd3b65..081b81f5102f986f36ba6ebb8ace83c0c024bca2 100755 (executable)
--- a/source/script/genstruct.pl
+++ b/source/script/genstruct.pl
@@ -136,7 +136,7 @@ sub parse_elements($$)
 
        print OFILE "static const struct parse_struct pinfo_" . $name . "[] = {\n";
 
-       while ($elements =~ /^.*?([a-z].*?);\s*?(\S*?)\s*?$(.*)/msi) {
+       while ($elements =~ /^.*?([a-z].*?);\s*?(\S*?)\s*?\$(.*)/msi) {
                my($element) = $1;
                my($flags) = $2;
                $elements = $3;