summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-11-18 00:58:41 +0000
committerKarl Berry <karl@freefriends.org>2008-11-18 00:58:41 +0000
commit9333748b5b1c858f157072c5a7845e1eac780350 (patch)
tree3a0a79d38558c043ec959869e670605a67abd061 /Master/tlpkg/TeXLive/TLPDB.pm
parentc74d68ee64328c552d23aae43da7aa496637f257 (diff)
more information when dying
git-svn-id: svn://tug.org/texlive/trunk@11340 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index 5d26e831b6b..a7ab0bb2838 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -194,7 +194,7 @@ It returns the actual number of packages (TLPOBJs) read from C<$filename>.
sub from_file {
my ($self, $path) = @_;
if (@_ != 2) {
- die("Need a filename for initialization!");
+ die "need filename for initialization";
}
my $root_from_path = dirname(dirname($path));
if (defined($self->{'root'})) {
@@ -396,9 +396,9 @@ sub _add_tlpcontainer {
$container .= ".lzma";
$unpackprog="NO_IDEA_HOW_TO_UNPACK_LZMA";
$args="NO IDEA WHAT ARGS IT NEEDS";
- die("lzma is checked for but not implemented, please edit TLPDB.pm\n");
+ die "lzma checked for but not implemented, maybe update TLPDB.pm\n";
} else {
- die "Cannot find a package $container (.zip or .lzma) in $ziplocation\n";
+ die "Cannot find package $container (.zip or .lzma) in $ziplocation\n";
}
tlwarn("Huuu, this needs testing and error checking!\n");
tlwarn("Should we use -a -- adapt line endings etc?\n");