diff options
Diffstat (limited to 'Master')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 24 | ||||
| -rwxr-xr-x | Master/tlpkg/bin/tlpsrc2tlpdb | 2 |
2 files changed, 23 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index ee2608a05e6..a018cd97b91 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -694,7 +694,21 @@ sub is_meta_package { return 0; } -sub split_package { +sub split_src_package { + my $self = shift; + my $tlp = new TeXLive::TLPOBJ; + $tlp->name($self->name . ".sources"); + $tlp->shortdesc("source files of " . $self->name); + $tlp->revision($self->revision); + $tlp->category($self->category); + $tlp->add_srcfiles($self->srcfiles); + $tlp->srcsize($self->srcsize); + $self->clearsrcfiles(); + $self->srcsize(0); + return($tlp); +} + +sub split_bin_package { my $self = shift; my %binf = %{$self->binfiles}; my @retlist; @@ -1148,7 +1162,7 @@ adds information from a C<TeXCatalogue> object (currently license, version, url, and updates docfiles with details and languages tags if present in the Catalogue). -=item C<split_package> +=item C<split_bin_package> splits off the binfiles of C<TLPOBJ> into new independent C<TLPOBJ> with the original name plus ".arch" for every arch for which binfiles are present. @@ -1156,6 +1170,12 @@ 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> + +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. + =item C<is_arch_dependent> returns C<1> if there are C<binfiles>, otherwise C<0>. diff --git a/Master/tlpkg/bin/tlpsrc2tlpdb b/Master/tlpkg/bin/tlpsrc2tlpdb index 6d6741c546d..233bf72e9bb 100755 --- a/Master/tlpkg/bin/tlpsrc2tlpdb +++ b/Master/tlpkg/bin/tlpsrc2tlpdb @@ -92,7 +92,7 @@ sub main # split bin packages if (not($opt_nosplit)) { - my @binobjs = $tlp->split_package; + my @binobjs = $tlp->split_bin_package; foreach (@binobjs) { $tldb->add_tlpobj($_); } |