diff options
| author | Norbert Preining <preining@logic.at> | 2007-06-22 07:48:41 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2007-06-22 07:48:41 +0000 |
| commit | d6d4a615499ffae77ecbcb40d537ad581e229c7e (patch) | |
| tree | ed54415d8e23b3447c9488710c3b6a23810abad4 /Master | |
| parent | 05f1490edc37d6a5c28ec9ba4fbcc220cc8c9c50 (diff) | |
add the tlpobj file only for arch=all ...
git-svn-id: svn://tug.org/texlive/trunk@4488 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 28 |
1 files changed, 16 insertions, 12 deletions
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); } |