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