summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-12-23 00:22:06 +0000
committerKarl Berry <karl@freefriends.org>2008-12-23 00:22:06 +0000
commitce9d6e88b93e5715d26160610f9d9a61af006047 (patch)
tree510b97184908be4009323fef818212b2a52897fc /Master/tlpkg/TeXLive/TLPOBJ.pm
parent7fdf6cb5ba5be1526376fe616295ec0e81a8affd (diff)
better make_container debugging, message tweaks
git-svn-id: svn://tug.org/texlive/trunk@11693 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index 7b75b4cd2cc..d36c2b1ea26 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -479,7 +479,7 @@ sub make_container {
|| die "$0: create($tlpobjdir/$self->{'name'}.tlpobj) failed: $!";
$self->writeout(\*TMP);
close(TMP);
- push @files, "$tlpobjdir/$self->{'name'}.tlpobj";
+ push(@files, "$tlpobjdir/$self->{'name'}.tlpobj");
$tarname = "$containername.tar";
if ($type eq "tar") {
$containername = $tarname;
@@ -487,7 +487,7 @@ sub make_container {
$containername = "$tarname.lzma";
}
- # start the whole fun
+ # start the fun
my $tar = $::progs{'tar'};
my $lzma;
if (!defined($tar)) {
@@ -517,7 +517,7 @@ sub make_container {
if (-f $f || -l $f) {
push(@cmdline, $f);
} else {
- tlwarn("$0: (make_container) $_ not a file or directory");
+ tlwarn("$0: (make_container $containername) $f not file or symlink\n");
}
}