summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-12-05 15:45:21 +0000
committerNorbert Preining <preining@logic.at>2007-12-05 15:45:21 +0000
commit5b7f41a22a74abcc6ed54b2c3fa1d5cf62be920c (patch)
treeb9399bca76ddf697734cb3a7dd293083dd81e93d /Master
parentf089b9659c079982daa92e06bfaa5f69b50f5342 (diff)
dummy backward compatibility for now
git-svn-id: svn://tug.org/texlive/trunk@5713 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/tlpkg/bin/create-package-list11
1 files changed, 10 insertions, 1 deletions
diff --git a/Master/tlpkg/bin/create-package-list b/Master/tlpkg/bin/create-package-list
index b6ccacd9cec..a57d004e012 100755
--- a/Master/tlpkg/bin/create-package-list
+++ b/Master/tlpkg/bin/create-package-list
@@ -16,6 +16,7 @@ BEGIN {
use strict;
use TeXLive::TLPDB;
+use TeXLive::TLUtils qw(dirname);
use Getopt::Long;
use Pod::Usage;
@@ -29,7 +30,15 @@ die "$0: missing tlpdb argument; try --help if you need it.\n" if ($#ARGV<0);
die "cannot read tlpdb file $ARGV[0]." if (! -r "$ARGV[0]");
-my $tldb = new TeXLive::TLPDB ( root => "$ARGV[0]" );
+# backwards compatibility
+my $root;
+if ("$ARGV[0]" =~ m,texlive.tlpdb$,) {
+ $root = dirname(dirname("$ARGV[0]"));
+} else {
+ $root = "$ARGV[0]";
+}
+
+my $tldb = new TeXLive::TLPDB ( root => "$root" );
$tldb->generate_packagelist;