summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLWinGoo.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-11-18 00:58:41 +0000
committerKarl Berry <karl@freefriends.org>2008-11-18 00:58:41 +0000
commit9333748b5b1c858f157072c5a7845e1eac780350 (patch)
tree3a0a79d38558c043ec959869e670605a67abd061 /Master/tlpkg/TeXLive/TLWinGoo.pm
parentc74d68ee64328c552d23aae43da7aa496637f257 (diff)
more information when dying
git-svn-id: svn://tug.org/texlive/trunk@11340 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLWinGoo.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLWinGoo.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm
index 3df12deea97..f3fab1c4992 100644
--- a/Master/tlpkg/TeXLive/TLWinGoo.pm
+++ b/Master/tlpkg/TeXLive/TLWinGoo.pm
@@ -407,7 +407,7 @@ sub setenv_reg {
my $env_var = shift;
my $env_data = shift;
my $mode = @_ ? shift : "default";
- die "setenv_reg: Invalid mode"
+ die "setenv_reg: Invalid mode $mode"
if ($mode ne "user" and $mode ne "system" and $mode ne "default");
die "setenv_reg: mode 'system' only available for admin"
if ($mode eq "system" and !$is_admin);
@@ -439,7 +439,7 @@ sub unsetenv_reg {
my $env = get_user_env();
my $mode = @_ ? shift : "default";
#print "Unsetenv_reg: unset $env_var with mode $mode\n";
- die "unsetenv_reg: Invalid mode"
+ die "unsetenv_reg: Invalid mode $mode"
if ($mode ne "user" and $mode ne "system" and $mode ne "default");
die "unsetenv_reg: mode 'system' only available for admin"
if ($mode eq "system" and !$is_admin);