summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm18
1 files changed, 9 insertions, 9 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index ffe004d2053..5b394dfd8d0 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -989,7 +989,7 @@ sub add_symlinks {
sub remove_symlinks {
my $self = shift;
- my $ret = 0;
+ my $errors = 0;
my $Master = $self->{'root'};
my $arch = $self->option_platform;
my $plat_bindir = "$Master/bin/$arch";
@@ -1010,7 +1010,7 @@ sub remove_symlinks {
$plat_bindir = $1;
}
} else {
- $ret++;
+ $errors++;
tlwarn ("$sys_bin/pdftex not present or not a link, not removing any link of binaries!\n");
}
if ($plat_bindir) {
@@ -1022,7 +1022,7 @@ sub remove_symlinks {
(readlink("$sys_bin/$f") =~ m;^$Master/bin/$plat_bindir/;)) {
unlink("$sys_bin/$f");
} else {
- $ret++;
+ $errors++;
tlwarn ("not removing $sys_bin/$f, not a link or wrong destination!\n");
}
}
@@ -1041,13 +1041,13 @@ sub remove_symlinks {
(readlink("$sys_info/$f") =~ m;^$Master/texmf/doc/info/;)) {
unlink("$sys_info/$f");
} else {
- $ret++;
+ $errors++;
tlwarn ("not removing $sys_info/$f, not a link or wrong destination!\n");
}
}
`rmdir "$sys_info" 2>/dev/null`;
} else {
- $ret++;
+ $errors++;
tlwarn ("destination of info symlink $sys_info not writable, no removal of links of info files done!\n");
}
# man files
@@ -1067,7 +1067,7 @@ sub remove_symlinks {
(readlink("$sys_man/$m/$f") =~ m;^$Master/texmf/doc/man/$m/;)) {
unlink("$sys_man/$m/$f");
} else {
- $ret++;
+ $errors++;
tlwarn ("not removing $sys_man/$m/$f, not a link or wrong destination!\n");
}
}
@@ -1076,12 +1076,12 @@ sub remove_symlinks {
}
`rmdir "$sys_man" 2>/dev/null`;
} else {
- $ret++;
+ $errors++;
tlwarn ("destination of man symlink $sys_man not writable, no removal of links of man files done!\n");
}
}
- # we collected errors in $ret, so return the ! of it
- return (!$ret);
+ # we collected errors in $errors, so return the ! of it
+ return (!$errors);
}
=pod