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

mdgrep.pl tids (TRUNK ONLY)

Browse Source 
aka "try again before the wireless drains my laptop battery"
This commit is contained in:
keni
2008-06-25 19:02:38 +00:00
parent 41479c040a
commit bf3501d9d2
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

@@ -55,13 +55,15 @@
$outfile = "mdgrep.h"; $outfile = "mdgrep.h";
sub start_file { sub start_file {
($rev) = ('$Revision$') =~ m/: (.*) .$/; ($rev) = ('$Revision$') =~ m/: (.*) .$/;
my $date = '$Date$';
my $revision = '$Revision$';
open(OUT, ">$outfile") || die "open $outfile: $!"; open(OUT, ">$outfile") || die "open $outfile: $!";
# NB: Date and Revision below will be modified when mdgrep.h is written to # NB: Date and Revision below will be modified when mdgrep.h is written to
# cvs - this is correct (but it means you must commit changes to mdgrep.pl # cvs - this is correct (but it means you must commit changes to mdgrep.pl
# before generating mdgrep.h and committing that file. # before generating mdgrep.h and committing that file.
print OUT <<E_O_M; print OUT <<E_O_M;
/* /*
* NetHack 3.5 $outfile $Date$ $Revision$ * NetHack 3.5 $outfile $date $revision
* Copyright (c) Kenneth Lorber, Kensington, Maryland, 2008 * Copyright (c) Kenneth Lorber, Kensington, Maryland, 2008
* NetHack may be freely redistributed. See license for details. * NetHack may be freely redistributed. See license for details.
* *