diff options
| -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"; |