Retrieved non-empty version...

[gedcom-parse.git] / doc / make_gom_xref

diff --git a/doc/make_gom_xref b/doc/make_gom_xref
index 58dd03559bf76ee56cb752c83cb280541a54fac1..f883208364e915605c795799343a4ac85f4781b1 100755 (executable)
--- a/doc/make_gom_xref
+++ b/doc/make_gom_xref
@@ -1,4 +1,3 @@
-#!/usr/bin/perl -w
 # $Id$
 # $Name$
 
@@ -23,7 +22,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 "") {