Latest update.

This commit is contained in:
2020-01-17 19:45:12 +09:00
parent 016df9f433
commit 0f7abb4eb6
1100 changed files with 47785 additions and 16292 deletions
+2 -4
View File
@@ -8,10 +8,8 @@
my $obj_dat_h = $ARGV[0];
# Output year depends on the date on the input file and the script.
my $YEAR = [localtime([stat($0)]->[9])]->[5] + 1900;
my $iYEAR = [localtime([stat($obj_dat_h)]->[9])]->[5] + 1900;
$YEAR = $iYEAR if $iYEAR > $YEAR;
# The year the output file is generated.
my $YEAR = [localtime()]->[5] + 1900;
open IN, '<', $obj_dat_h
|| die "Couldn't open $obj_dat_h : $!\n";