Fixed eventgen.pl to work with perforce id keywords rather than hopenames.

Copied from Perforce
 Change: 24907
 ServerID: perforce.ravenbrook.com

1 files changed, 3 insertions, 3 deletions

diff --git a/mps/code/eventgen.pl b/mps/code/eventgen.pl
index 31aa12f288a..3e05d88205c 100644
--- a/mps/code/eventgen.pl
+++ b/mps/code/eventgen.pl
@@ -12,7 +12,7 @@
 # You will need to have eventgen.h claimed, and you should
 # remember to check it in afterwards.
 
-$HopeName = '$HopeName: MMsrc!eventgen.pl(trunk.13) $';
+$ID = substr(q$Id$, 4, -1);
 
 %Formats = ();
 
@@ -45,12 +45,12 @@ open(H, ">eventgen.h") || die "Can't open eventgen.h for output";
 
 print H "/* impl.h.eventgen -- Automatic event header
  *
- * \$Id$
+ * \$Id\$
  * \$HopeName\$
  * Copyright (c) 2001 Ravenbrook Limited.
  *
  * DO NOT EDIT THIS FILE!
- * This file was generated by", substr($HopeName, 10), "
+ * This file was generated by $ID
  */\n\n";