nethack-gwaa-kiwi/nethack
1
0
Fork 0
Code Pull Requests Activity

mdgrep.pl tid

Browse Source 
Use the right name for the output file in all places.
Thanks Pat.
This commit is contained in:
keni
2008-04-23 10:48:04 +00:00
parent c7858a6d37
commit 4fb08f1366
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
util/mdgrep.pl
View File

@@ -48,11 +48,13 @@
@const_true = qw/1 TRUE/;
@const_false = qw/0 FALSE/;
$outfile = "mdgrep.h";
sub start_file {
($rev) = ('$Revision$') =~ m/: (.*) .$/;
open(OUT, ">mdgrep.h") || die "open mkgrep.h: $!";
open(OUT, ">$outfile") || die "open $outfile: $!";
print OUT <<E_O_M;
/*
* $outfile
* This file generated by mdgrep.pl version $rev.
* DO NOT EDIT! Your changes will be lost.
*/