diff options
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 |