diff options
author | Norbert Preining <preining@logic.at> | 2010-09-29 00:51:38 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2010-09-29 00:51:38 +0000 |
commit | b4eb58d9e0299d963626970dc7d85917199ff71e (patch) | |
tree | 90acc46f38f6a6b203e0524178db8b077e105c6e /Master | |
parent | 34c70b513b133f24d8da7f15be5ce7b32bc1092f (diff) |
fix wrong interpretation of autoclean value 0 in tlpdb
git-svn-id: svn://tug.org/texlive/trunk@19940 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index c6a5b182520..3360127a342 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -1351,12 +1351,13 @@ sub action_backup { if ($clean_mode) { if ($opts{"clean"} == -99) { # we need to check the tlpdb - $opts{"clean"} = $localtlpdb->option("autobackup"); - if (!$opts{"clean"}) { + my $tlpdb_option = $localtlpdb->option("autobackup"); + if (!defined($tlpdb_option)) { tlwarn ("--clean given without an argument, but no default clean\n"); tlwarn ("mode specified in the tlpdb, terminating.\n"); exit 1; } + $opts{"clean"} = $tlpdb_option; } # now $opts{"clean"} is something, but maybe not a number, check for # validity |