summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPostActions.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPostActions.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPostActions.pm32
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)',