summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-05-04 14:08:58 +0000
committerNorbert Preining <preining@logic.at>2009-05-04 14:08:58 +0000
commit50d227c793cfa9d79ddce33b28e8cb8b1a3615dc (patch)
tree9931c41f9dd9cd97e20af15986629182f97f51c3 /Master
parentc2ba8087900d5fc071979a69e4af7a6289c76500 (diff)
warn if a backupdir is set that does not exist
git-svn-id: svn://tug.org/texlive/trunk@12922 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl13
1 files changed, 13 insertions, 0 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index 9c0cbb99770..ca00d7c8740 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -1996,6 +1996,19 @@ sub action_option {
info("Default destination for symlinks to binaries: ",
$localtlpdb->option_sys_bin, "\n");
}
+ } elsif ($what =~ m/^backupdir$/i) {
+ my $val = shift @ARGV;
+ if (defined($val)) {
+ info("tlmgr: setting option $what to $val.\n");
+ if (! -d $val) {
+ info("tlmgr: the directory $val does not exists, it has to be created\n");
+ info("tlmgr: before backups can be done automatically.\n");
+ }
+ $localtlpdb->option($what,$val);
+ $localtlpdb->save;
+ } else {
+ info("Option $what = ", $localtlpdb->option($what), "\n");
+ }
} elsif (member($what, @AllowedConfigOptions)) {
# for all further options not handled above, we check whether they
# appear in the list of allowed options; if they do, we set/read