From 54724a4410fb89d8010be4c45fae684e504cf55a Mon Sep 17 00:00:00 2001
From: tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Thu, 13 Jun 2002 21:21:03 +0000
Subject: Another fix for writing the '$Header:$' line in generated files.

git-svn-id: http://svn.cactuscode.org/flesh/trunk@2907 17b73243-c579-4c4c-a9d2-2d5706c11dac
---
 lib/make/new_thorn.pl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'lib/make/new_thorn.pl')

diff --git a/lib/make/new_thorn.pl b/lib/make/new_thorn.pl
index c098f167..41042c70 100755
--- a/lib/make/new_thorn.pl
+++ b/lib/make/new_thorn.pl
@@ -77,21 +77,21 @@ mkdir("test", 0755);
 open(OUT, ">interface.ccl") || die "Cannot create interface.ccl";
 
 print OUT "# Interface definition for thorn $thorn_name\n";
-print OUT "# \$Header$\n";
+print OUT "# \$" . "Header:\$\n";
 
 close OUT;
 
 open(OUT, ">param.ccl") || die "Cannot create param.ccl";
 
 print OUT "# Parameter definitions for thorn $thorn_name\n";
-print OUT "# \$Header$\n";
+print OUT "# \$" . "Header:\$\n";
 
 close OUT;
 
 open(OUT, ">schedule.ccl") || die "Cannot create schedule.ccl";
 
 print OUT "# Schedule definitions for thorn $thorn_name\n";
-print OUT "# \$Header$\n";
+print OUT "# \$" . "Header:\$\n";
 
 close OUT;
 
@@ -106,7 +106,7 @@ for ($i = 0; $i < (@author_names); $i++) {
    print OUT "$author_names[$i] <$author_emails[$i]>";
 }
 print OUT "\n";
-print OUT "CVS info   : \$Header$\n";
+print OUT "CVS info   : \$" . "Header:\$\n";
 print OUT "--------------------------------------------------------------------------\n";
 print OUT "\n";
 print OUT "Purpose of the thorn:\n";
@@ -119,7 +119,7 @@ chdir("src");
 open(OUT, ">make.code.defn") || die "Cannot create make.code.defn";
 
 print OUT "# Main make.code.defn file for thorn $thorn_name\n";
-print OUT "# \$Header$\n";
+print OUT "# \$" . "Header:\$\n";
 print OUT "\n";
 print OUT "# Source files in this directory\n";
 print OUT "SRCS = \n";
-- 
cgit v1.2.3