diff options
Diffstat (limited to 'Master/tlpkg/libexec')
-rwxr-xr-x | Master/tlpkg/libexec/ctan2tds | 3 | ||||
-rwxr-xr-x | Master/tlpkg/libexec/place | 9 |
2 files changed, 11 insertions, 1 deletions
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds index 59de6a16cbe..e7b7773c851 100755 --- a/Master/tlpkg/libexec/ctan2tds +++ b/Master/tlpkg/libexec/ctan2tds @@ -3038,6 +3038,7 @@ exit 2 unless Getopt::Long::GetOptions ( "debug!", "help", "test|n!", + "contrib", "version", ); @@ -6404,7 +6405,7 @@ sub readconfig { sub nonfree_die { my ($diestr, $cmd) = @_; - if ($ENV{'CTAN2TDS_NONFREE'}) { + if ($opt_contrib) { eval $cmd; } else { die $diestr; diff --git a/Master/tlpkg/libexec/place b/Master/tlpkg/libexec/place index eb79f35bb0a..dda37b0d2c8 100755 --- a/Master/tlpkg/libexec/place +++ b/Master/tlpkg/libexec/place @@ -30,6 +30,13 @@ if ($ARGV[0] eq "-n") { } print "place: chicken mode = $chicken\n"; +my $do_contrib = 0; +if ($ARGV[0] eq "--contrib") { + $do_contrib = 1; + shift; +} + + die "usage: $0 PKGNAME\n" unless @ARGV == 1; $package = $ARGV[0]; # $::opt_verbosity = 3; # debug tlpdb reading @@ -94,6 +101,8 @@ for my $dot (@trailingdots) { # we do those checks (and possible removals) before making the new TL # package, so the "README." file doesn't get into the data structures. +die("contrib mode not implemented, move packages manually!\n") if ($do_contrib); + if (-d "Master") { # maybe have both Build and Master &xchdir ("Master"); |