summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm19
1 files changed, 16 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index e3cde9b0acf..b8e81eaf11a 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -6,7 +6,7 @@
package TeXLive::TLPOBJ;
-use TeXLive::TLConfig qw($DefaultCategory $CategoriesRegexp);
+use TeXLive::TLConfig qw($DefaultCategory $CategoriesRegexp $MetaCategoriesRegexp);
use TeXLive::TLUtils;
use File::Path;
use Cwd;
@@ -86,7 +86,7 @@ sub from_fh {
($lastcmd eq "depend") ) {
$line =~ s/^ /${lastcmd}continued /;
} else {
- die("Continuation of $lastcmd not allowed, please fix tlpobj!\n");
+ die("Continuation of $lastcmd not allowed, please fix tlpobj: line = $line!\n");
}
}
if ($line =~ /^name\s*([-\w]+)$/) {
@@ -536,6 +536,14 @@ sub update_from_catalogue {
}
}
+sub is_meta_package {
+ my $self = shift;
+ if ($self->category =~ /^$MetaCategoriesRegexp$/) {
+ return 1;
+ }
+ return 0;
+}
+
# Helpers.
#
@@ -936,6 +944,11 @@ If arguments are given, they are assumed to be architecture names, and
it returns the above plus the sum of sizes of C<binsize> for those
architectures.
+=item C<is_meta_package>
+
+Returns true if the package is a meta package as defined in TLConfig
+(Currently Collection and Scheme).
+
=item C<{add,remove}_{src,run,doc}files(@files)>
adds or removes files to the respective list of files.
@@ -956,7 +969,7 @@ returns a list of all files of all types.
=head1 SEE ALSO
-The modules L<TeXLive::TLUtils>, L<TeXLive::TLPSRC>,
+The modules L<TeXLive::TLConfig>, L<TeXLive::TLUtils>, L<TeXLive::TLPSRC>,
L<TeXLive::TLPDB>, L<TeXLive::TLTREE>, L<TeXLive::TeXCatalogue>.
=head1 AUTHORS AND COPYRIGHT