diff options
author | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-06-13 21:21:03 +0000 |
---|---|---|
committer | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-06-13 21:21:03 +0000 |
commit | 54724a4410fb89d8010be4c45fae684e504cf55a (patch) | |
tree | b5f98d1c0208f56d1323a1efc4e6121d56cd43c5 /lib/make/new_thorn.pl | |
parent | 943a4814853dddb447f575de889bebcda96595f0 (diff) |
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
Diffstat (limited to 'lib/make/new_thorn.pl')
-rwxr-xr-x | lib/make/new_thorn.pl | 10 |
1 files changed, 5 insertions, 5 deletions
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"; |