diff options
author | Norbert Preining <preining@logic.at> | 2008-08-01 09:55:20 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-08-01 09:55:20 +0000 |
commit | 4620a8397c0e31ef27df5471d8a9c25efa9a14f2 (patch) | |
tree | a35db8c9034f3cf1e00e099ff93febb1dba0833d /Master/tlpkg/TeXLive | |
parent | c9bbbf97014e6f34baffdd953cc02d11bc723909 (diff) |
TLPostActions: add some checking that texdir is defined ..
git-svn-id: svn://tug.org/texlive/trunk@9974 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-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)', |