diff options
Diffstat (limited to 'Auxiliary/vim/extract-upper-case.pl')
| -rwxr-xr-x | Auxiliary/vim/extract-upper-case.pl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Auxiliary/vim/extract-upper-case.pl b/Auxiliary/vim/extract-upper-case.pl index 9e3c439..6dbb678 100755 --- a/Auxiliary/vim/extract-upper-case.pl +++ b/Auxiliary/vim/extract-upper-case.pl @@ -2,6 +2,7 @@ use strict; use warnings; +use POSIX qw(strftime); #my $cmake = "/home/pboettch/devel/upstream/cmake/build/bin/cmake"; my $cmake = "cmake"; @@ -129,6 +130,10 @@ while(<IN>) } elsif ($1 eq "VERSION") { $_ =~ s/\@VERSION\@/$version/; print OUT $_; + } elsif ($1 eq "DATE") { + my $date = strftime "%Y %b %d", localtime; + $_ =~ s/\@DATE\@/$date/; + print OUT $_; } else { print "ERROR do not know how to replace $1\n"; } |