From d6d4a615499ffae77ecbcb40d537ad581e229c7e Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 22 Jun 2007 07:48:41 +0000 Subject: add the tlpobj file only for arch=all ... git-svn-id: svn://tug.org/texlive/trunk@4488 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPOBJ.pm | 28 ++++++++++++++++------------ 1 file changed, 16 insertions(+), 12 deletions(-) (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm') diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 3f86288f9b3..986c7a41fb2 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -388,16 +388,18 @@ sub _make_zip { } &mkpath("$destdir") if (! -d "$destdir"); chdir($tltree->svnroot); - # we add the .tlpobj into the .tlpobj directory - my $removetlpobjdir = 0; - if (! -d ".tlpobj") { - &mkpath(".tlpobj"); - $removetlpobjdir = 1; + if ($arch eq "all") { + # we add the .tlpobj into the .tlpobj directory + my $removetlpobjdir = 0; + if (! -d ".tlpobj") { + &mkpath(".tlpobj"); + $removetlpobjdir = 1; + } + open(TMP,">.tlpobj/$self->{'name'}.tlpobj") or die "Cannot create .tlpobj/$self->{'name'}.tlpobj"; + $self->writeout(\*TMP); + close(TMP); + push @files, ".tlpobj/$self->{'name'}.tlpobj"; } - open(TMP,">.tlpobj/$self->{'name'}.tlpobj") or die "Cannot create .tlpobj/$self->{'name'}.tlpobj"; - $self->writeout(\*TMP); - close(TMP); - push @files, ".tlpobj/$self->{'name'}.tlpobj"; unlink($zipname); print $zipcmd . "$destdir/$zipname" . " > $nul\n" if ($::opt_debug); open ZIP, $zipcmd . "$destdir/$zipname" . " > $nul"; @@ -409,9 +411,11 @@ sub _make_zip { } } @files; close ZIP; - # cleaning up - unlink(".tlpobj/$self->{'name'}.tlpobj"); - rmdir(".tlpobj") if $removetlpobjdir; + if ($arch eq "all") { + # cleaning up + unlink(".tlpobj/$self->{'name'}.tlpobj"); + rmdir(".tlpobj") if $removetlpobjdir; + } print "Done $zipname\n" if ($::opt_debug); } -- cgit v1.2.3