diff options
author | Karl Berry <karl@freefriends.org> | 2006-05-03 22:29:05 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-05-03 22:29:05 +0000 |
commit | ec949a72dc92282187534262a2eaea9f80e021b3 (patch) | |
tree | c972ff1f09e1aa8dc83e15ce73085b938bc5e015 /Build/cdbuild/place | |
parent | 1dc1536d63d9f4ede7fc5d3fff08eea3954abe15 (diff) |
place -n chicken option
git-svn-id: svn://tug.org/texlive/trunk@1567 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/cdbuild/place')
-rwxr-xr-x | Build/cdbuild/place | 19 |
1 files changed, 14 insertions, 5 deletions
diff --git a/Build/cdbuild/place b/Build/cdbuild/place index ce088b0e451..292237db352 100755 --- a/Build/cdbuild/place +++ b/Build/cdbuild/place @@ -16,6 +16,17 @@ use Cwd; $newpackage=0; @zapped=(); +if ($ARGV[0] eq "-n") { + $chicken = 1; + shift; +} else { + $chicken = 0; +} +print "place: chicken mode = $chicken\n"; + +if (@ARGV != 1) { + die "usage: $0 PKGNAME\n"; +} $package=$ARGV[0]; xchdir (dirname($0) . "/cooked"); @@ -41,10 +52,9 @@ if (-f "$M/texmf/lists/$package") { } close(LIST); } -else - { - $newpackage=1; - } +else { + $newpackage=1; +} if (! -f "$M/$Root/tpm/$package.tpm") { &my_system ("svn add $M/$Root/tpm/$package.tpm"); @@ -144,7 +154,6 @@ sub my_system print "place: SYSTEM $cmd\n"; - my $chicken = 1; unless ($chicken) { my $ret = system ($cmd); print "... failed, status=$ret\n" if $ret != 0; |