force expand unexpanded substitution variables
This commit is contained in:
@@ -1,5 +1,5 @@
|
||||
#!perl
|
||||
# NetHack 3.6 mdgrep.pl $NHDT-Date: 1423877528 2015/02/14 01:32:08 $ $NHDT-Branch$:$NHDT-Revision: 1.7 $
|
||||
# NetHack 3.6 mdgrep.pl $NHDT-Date: 1524684408 2018/04/25 19:26:48 $ $NHDT-Branch: NetHack-3.6.0 $:$NHDT-Revision: 1.16 $
|
||||
# Copyright (c) Kenneth Lorber, Kensington, Maryland
|
||||
# NetHack may be freely redistributed. See license for details.
|
||||
|
||||
@@ -54,10 +54,10 @@
|
||||
|
||||
$outfile = "mdgrep.h";
|
||||
sub start_file {
|
||||
($rev) = ('$NHDT-Revision: 1.7 $') =~ m/: (.*) .$/;
|
||||
my $date = '$NHDT-Date: 1423877529 2015/02/14 01:32:09 $';
|
||||
my $branch = '$NHDT-Branch$';
|
||||
my $revision = '$NHDT-Revision: 1.7 $';
|
||||
($rev) = ('$NHDT-Revision: 1.16 $') =~ m/: (.*) .$/;
|
||||
my $date = '$NHDT-Date: 1524684408 2018/04/25 19:26:48 $';
|
||||
my $branch = '$NHDT-Branch: NetHack-3.6.0 $';
|
||||
my $revision = '$NHDT-Revision: 1.16 $';
|
||||
open(OUT, ">$outfile") || die "open $outfile: $!";
|
||||
# NB: Date and Revision below will be modified when mdgrep.h is written to
|
||||
# git - this is correct (but it means you must commit changes to mdgrep.pl
|
||||
|
||||
Reference in New Issue
Block a user