diff options
author | Karl Berry <karl@freefriends.org> | 2008-11-18 00:58:41 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-11-18 00:58:41 +0000 |
commit | 9333748b5b1c858f157072c5a7845e1eac780350 (patch) | |
tree | 3a0a79d38558c043ec959869e670605a67abd061 /Master/tlpkg/TeXLive/TLPOBJ.pm | |
parent | c74d68ee64328c552d23aae43da7aa496637f257 (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.pm | 8 |
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); |