summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPostActions.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-08-01 09:55:20 +0000
committerNorbert Preining <preining@logic.at>2008-08-01 09:55:20 +0000
commit4620a8397c0e31ef27df5471d8a9c25efa9a14f2 (patch)
treea35db8c9034f3cf1e00e099ff93febb1dba0833d /Master/tlpkg/TeXLive/TLPostActions.pm
parentc9bbbf97014e6f34baffdd953cc02d11bc723909 (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/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)',