summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.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/TLPOBJ.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/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index 381e4ae5e03..c56266d8c8c 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -59,7 +59,7 @@ sub copy {
sub from_file {
my $self = shift;
if (@_ != 1) {
- die("Need a filename for initialization!");
+ die("TLPOBJ:from_file: Need a filename for initialization");
}
open(TMP,"<$_[0]") || die("Cannot open tlpobj file: $_[0]");
$self->from_fh(\*TMP);
@@ -516,7 +516,7 @@ sub writeout_simple {
sub make_container {
my ($self,$type,$instroot,$destdir,$containername,$relative) = @_;
if (($type ne "lzma") && ($type ne "tar")) {
- die("TLPOBJ currently supports only plain or lzma containers");
+ die "TLPOBJ currently supports only plain or lzma containers, not $type";
}
if (!defined($containername)) {
$containername = $self->name;
@@ -540,7 +540,7 @@ sub make_container {
my $tmp;
($tmp) = split m@/@;
if (defined($tltree) && ($tltree ne $tmp)) {
- die "Not generating relative package for multiple tree spanning packages!\n";
+ die "Not generating relative package for multiple tree spanning packages\n";
} else {
$tltree = $tmp;
}
@@ -857,7 +857,7 @@ sub make_return_hash_from_executes {
my $self = shift;
my $type = shift;
if (!defined($type) || (($type ne "enable") && ($type ne "disable"))) {
- die "type for make_return_hash_from_executes must be either enable or disable";
+ die "make_return_hash_from_executes: enable or disable, not type $type";
}
my %ret;
my (@maps, @formats, @dats);