support disabling/enabling os fsrc/doc files split and out adaption

of the installers wrt the options presented


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

1 files changed, 24 insertions, 10 deletions

diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index 3b35a617412..ddc588aab6e 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -46,6 +46,16 @@ sub new {
 
 
 
+sub copy {
+  my $self = shift;
+  my $bla = {};
+  %$bla = %$self;
+  bless $bla, "TeXLive::TLPOBJ";
+  return $bla;
+}
+
+
+
 sub from_file {
   my $self = shift;
   if (@_ != 1) {
@@ -695,7 +705,7 @@ sub is_meta_package {
   return 0;
 }
 
-sub split_doc_package {
+sub docfiles_package {
   my $self = shift;
   if (not($self->docfiles)) { return ; }
   my $tlp = new TeXLive::TLPOBJ;
@@ -705,12 +715,12 @@ sub split_doc_package {
   $tlp->category($self->category);
   $tlp->add_docfiles($self->docfiles);
   $tlp->docsize($self->docsize);
-  $self->clear_docfiles();
-  $self->docsize(0);
+  # $self->clear_docfiles();
+  # $self->docsize(0);
   return($tlp);
 }
 
-sub split_src_package {
+sub srcfiles_package {
   my $self = shift;
   if (not($self->srcfiles)) { return ; }
   my $tlp = new TeXLive::TLPOBJ;
@@ -720,8 +730,8 @@ sub split_src_package {
   $tlp->category($self->category);
   $tlp->add_srcfiles($self->srcfiles);
   $tlp->srcsize($self->srcsize);
-  $self->clear_srcfiles();
-  $self->srcsize(0);
+  # $self->clear_srcfiles();
+  # $self->srcsize(0);
   return($tlp);
 }
 
@@ -1195,11 +1205,15 @@ The original package is changed in two respects: the binfiles are removed
 (since they are now in the single name.arch packages), and an additional
 depend on "name.ARCH" is added. Note that the ARCH is a placeholder.
 
-=item C<split_src_package>
+=item C<srcfiles_package>
+
+=item C<docfiles_package>
 
-splits off the srcfiles of C<TLPOBJ> into new independent C<TLPOBJ> with
-the original name plus ".sources". The source files are removed from the
-original package.
+splits off the srcfiles or docfiles of C<TLPOBJ> into new independent 
+C<TLPOBJ> with
+the original name plus ".sources". The source/doc files are 
+B<not> removed from the original package, since these functions are only
+used for the creation of split containers. 
 
 =item C<is_arch_dependent>