Getting and setting strings.
[gedcom-parse.git] / doc / make_gom_xref
index 58dd03559bf76ee56cb752c83cb280541a54fac1..ddaba8f5e521c7bf4e44147c4d549d95c198bbb8 100755 (executable)
@@ -23,7 +23,7 @@ while (<INPUT>)
   $section = "sub"  if m|/\* Sub-structures \*/|;
   $section = "main" if m|/\* Main structures \*/|;
   $section = ""     if m|/\* Functions \*/|;
-  $generated = $1   if m|/\* \$Id$ \*/|;
+  $generated = $1   if m|/\* [\$]Id: (.*?) \$ \*/|;
   next if m|/\*|;
 
   if ($section ne "") {