check for .source.tar.lzma files and not for .src.tar, why on earth

did I make that so assymetric ...


git-svn-id: svn://tug.org/texlive/trunk@12123 c570f23f-e606-0410-a88d-b1316a301751

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";