summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm24
-rwxr-xr-xMaster/tlpkg/bin/tlpsrc2tlpdb2
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($_);
}