diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2012-05-21 15:14:54 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2012-05-21 15:14:54 +0000 |
commit | 0f8efd8125256f6402f1ef747c7e8fd04e97e480 (patch) | |
tree | 64f242e66d908a4e3cd16424b60f2938c1c0fa78 /Master | |
parent | c741c860f5742796a652f48ad4134f7caae6a1f1 (diff) |
Added release year to filetypes
git-svn-id: svn://tug.org/texlive/trunk@26541 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-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"); |