diff options
Diffstat (limited to 'Master')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPostActions.pm | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLPostActions.pm b/Master/tlpkg/TeXLive/TLPostActions.pm index 7b4b9dd45af..383f27c98f9 100644 --- a/Master/tlpkg/TeXLive/TLPostActions.pm +++ b/Master/tlpkg/TeXLive/TLPostActions.pm @@ -267,6 +267,10 @@ $PostRemove{'bin-texlive'} = \&do_remove_bin_texlive; sub do_install_texlive_infra { my ($texdir) = @_; if (win32()) { + if (!defined($texdir)) { + tlwarn("do_install_texlive_infra: texdir not defined, returning\n"); + return; + } add_menu_shortcut( $mainmenu, 'TeX Live Toplevel Readme Index', @@ -292,6 +296,10 @@ $PostRemove{'texlive.infra'} = \&do_remove_texlive_infra; sub do_install_texlive_en { my ($texdir) = @_; if (win32()) { + if (!defined($texdir)) { + tlwarn("do_install_texlive_en: texdir not defined, returning\n"); + return; + } add_menu_shortcut( $mainmenu, 'TeX Live Manual (en) (HTML)', @@ -326,6 +334,10 @@ $PostRemove{'texlive-en'} = \&do_remove_texlive_en; sub do_install_texlive_cz { my ($texdir) = @_; if (win32()) { + if (!defined($texdir)) { + tlwarn("do_install_texlive_cz: texdir not defined, returning\n"); + return; + } add_menu_shortcut( $mainmenu, 'TeX Live Manual (cz) (PDF)', @@ -360,6 +372,10 @@ $PostRemove{'texlive-cz'} = \&do_remove_texlive_cz; sub do_install_texlive_fr { my ($texdir) = @_; if (win32()) { + if (!defined($texdir)) { + tlwarn("do_install_texlive_fr: texdir not defined, returning\n"); + return; + } add_menu_shortcut( $mainmenu, 'TeX Live Manual (fr) (PDF)', @@ -394,6 +410,10 @@ $PostRemove{'texlive-fr'} = \&do_remove_texlive_fr; sub do_install_texlive_de { my ($texdir) = @_; if (win32()) { + if (!defined($texdir)) { + tlwarn("do_install_texlive_de: texdir not defined, returning\n"); + return; + } add_menu_shortcut( $mainmenu, 'TeX Live Manual (de) (PDF)', @@ -428,6 +448,10 @@ $PostRemove{'texlive-de'} = \&do_remove_texlive_de; sub do_install_texlive_pl { my ($texdir) = @_; if (win32()) { + if (!defined($texdir)) { + tlwarn("do_install_texlive_pl: texdir not defined, returning\n"); + return; + } add_menu_shortcut( $mainmenu, 'TeX Live Manual (pl) (PDF)', @@ -462,6 +486,10 @@ $PostRemove{'texlive-pl'} = \&do_remove_texlive_pl; sub do_install_texlive_ru { my ($texdir) = @_; if (win32()) { + if (!defined($texdir)) { + tlwarn("do_install_texlive_ru: texdir not defined, returning\n"); + return; + } add_menu_shortcut( $mainmenu, 'TeX Live Manual (ru) (PDF)', @@ -496,6 +524,10 @@ $PostRemove{'texlive-ru'} = \&do_remove_texlive_ru; sub do_install_texlive_zh_cn { my ($texdir) = @_; if (win32()) { + if (!defined($texdir)) { + tlwarn("do_install_texlive_zh_cn: texdir not defined, returning\n"); + return; + } add_menu_shortcut( $mainmenu, 'TeX Live Manual (zh-cn)', |