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

perl variable for "real gid of this process"
(This used to be commit cfe2d01b7de846229e87c151059d80756929d129)

1 files changed, 1 insertions, 1 deletions

diff --git a/source3/script/genstruct.pl b/source3/script/genstruct.pl
index e6d30773d6..081b81f510 100755
--- a/source3/script/genstruct.pl
+++ b/source3/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;