protect the "$Id: $" string that gets printed to files from being

expanded itself.
This commit is contained in:
David Lawrence
2000-06-22 22:24:05 +00:00
parent 9c3531d72a
commit e85ffb301b

View File

@@ -15,6 +15,8 @@
# ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
# SOFTWARE.
# $Id: update_copyrights,v 1.14 2000/06/22 22:24:05 tale Exp $
require 5.002;
# Map copyright owners to the files containing copyright messages.
@@ -274,7 +276,9 @@ while (<>) {
}
if ($first !~ /$pat/ && $_ !~ /$pat/) {
print TARGET "$start\$Id: update_copyrights,v 1.13 2000/06/22 21:46:35 tale Exp $$end\n";
print TARGET "$start\$";
print TARGET "Id: ";
print TARGET "\$$end\n";
}
print TARGET $first if $first !~ /^\s*$/;