From 664c4ff0620390818ef0e7f9c2a2834197982551 Mon Sep 17 00:00:00 2001 From: Michael Bayne Date: Fri, 8 Feb 2002 23:59:36 +0000 Subject: [PATCH] Whoops. Need to be more careful about putting $Id$ into the source file. CVS was taking it upon itself to expand my regular expression into a proper $Id$ string. Whee! git-svn-id: svn+ssh://src.earth.threerings.net/narya/trunk@974 542714f4-19e9-0310-aa3c-eee0fc999fb1 --- bin/gendobj | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/bin/gendobj b/bin/gendobj index 0fa31c289..9a65e6449 100755 --- a/bin/gendobj +++ b/bin/gendobj @@ -1,6 +1,6 @@ #!/usr/bin/perl -w # -# $Id: gendobj,v 1.4 2002/02/08 23:53:58 mdb Exp $ +# $Id: gendobj,v 1.5 2002/02/08 23:59:36 mdb Exp $ # # gendobj is used to generate DObject source file definitons basded on # abbreviated declarations. Because DObject fields all have standard @@ -31,12 +31,12 @@ while ($source = shift) { next; } - # if the destination file already exists, slurp the existing CVS $Id: gendobj,v 1.4 2002/02/08 23:53:58 mdb Exp $ + # if the destination file already exists, slurp the existing CVS Id # information out of it so that we can slip that into the new one my $idstr; if (-f $dest && open(IN, "$dest")) { while () { - if (/(\$Id: gendobj,v 1.4 2002/02/08 23:53:58 mdb Exp $)/) { + if (/(\$[I][d]: .*\$)/) { $idstr = $1; } } @@ -65,8 +65,8 @@ while ($source = shift) { my $mode = "preamble"; while () { - # swap in the parsed $Id: gendobj,v 1.4 2002/02/08 23:53:58 mdb Exp $ str if we have one - $_ =~ s/(\$Id: gendobj,v 1.4 2002/02/08 23:53:58 mdb Exp $)/$idstr/ if (defined $idstr); + # swap in the parsed Id string if we have one + $_ =~ s/(\$[I][d]: .*\$)/$idstr/ if (defined $idstr); if ($mode eq "preamble") { # look to see if we're transitioning from the preamble to the