diff options
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 6d385578337..fa594e14563 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1575,7 +1575,7 @@ sub _do_postaction_fileassoc { tlwarn("filetype of fileassoc postaction not given\n"); return 0; } - my $filetype = $keyval{'filetype'}; + my $filetype = $keyval{'filetype'}.'.'.$ReleaseYear; &log("postaction $how fileassoc for " . $tlpobj->name . ": $extension, $filetype\n"); @@ -1606,7 +1606,7 @@ sub _do_postaction_filetype { tlwarn("name of filetype postaction not given\n"); return 0; } - my $name = $keyval{'name'}; + my $name = $keyval{'name'}.'.'.$ReleaseYear; # cmd can be an arbitrary string if (!defined($keyval{'cmd'})) { @@ -1656,7 +1656,7 @@ sub _do_postaction_progid { tlwarn("filetype of progid postaction not given\n"); return 0; } - my $filetype = $keyval{'filetype'}; + my $filetype = $keyval{'filetype'}.'.'.$ReleaseYear; &log("postaction $how progid for " . $tlpobj->name . ": $extension, $filetype\n"); |