diff options
| author | Karl Berry <karl@freefriends.org> | 2008-12-23 00:22:06 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2008-12-23 00:22:06 +0000 |
| commit | ce9d6e88b93e5715d26160610f9d9a61af006047 (patch) | |
| tree | 510b97184908be4009323fef818212b2a52897fc /Master/tlpkg/TeXLive | |
| parent | 7fdf6cb5ba5be1526376fe616295ec0e81a8affd (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')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 6 |
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"); } } |