summaryrefslogtreecommitdiff
path: root/Master/texmf/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf/scripts')
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl10
1 files changed, 5 insertions, 5 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index c60cf2199fe..149a02a05e6 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -300,20 +300,20 @@ sub execute_action {
# src or doc files from a different package.
# We should have that package already installed ...
my $pkg = $tlpobj->name;
- if ($pkg =~ m/^(.*)\.(src|doc)$/) {
+ if ($pkg =~ m/^(.*)\.(source|doc)$/) {
# got a .src or .doc package
my $type = $2;
my $mothership = $1;
my $mothertlp = $localtlpdb->get_package($mothership);
if (!defined($mothertlp)) {
- tlwarn("We are trying to add ${type}files to a not existing package $mothership!\n");
+ tlwarn("We are trying to add ${type} files to a not existing package $mothership!\n");
tlwarn("Trying to continue!\n");
# the best we can do is rename that package to $mothername and add it!
$tlpobj->name($mothership);
# add the src/docfiles tlpobj under the mothership name
$localtlpdb->add_tlpobj($tlpobj);
} else {
- if ($type eq "src") {
+ if ($type eq "source") {
$mothertlp->srcfiles($tlpobj->srcfiles);
$mothertlp->srcsize($tlpobj->srcsize);
} else {
@@ -502,8 +502,8 @@ sub remove_package {
# also remove the .tlpobj file
push @files, "tlpkg/tlpobj/$pkg.tlpobj";
# and the ones from src/doc splitting
- if (-r "tlpkg/tlpobj/$pkg.src.tlpobj") {
- push @files, "tlpkg/tlpobj/$pkg.src.tlpobj";
+ if (-r "tlpkg/tlpobj/$pkg.source.tlpobj") {
+ push @files, "tlpkg/tlpobj/$pkg.source.tlpobj";
}
if (-r "tlpkg/tlpobj/$pkg.doc.tlpobj") {
push @files, "tlpkg/tlpobj/$pkg.doc.tlpobj";