summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-12-03 06:46:33 +0000
committerNorbert Preining <preining@logic.at>2007-12-03 06:46:33 +0000
commit9c03f70819a69618c0fd3c919d0beba8f7fa0da4 (patch)
tree35e7a3da61eb4d433a0ea9ad7e41102a7a30953b /Master/tlpkg/TeXLive/TLPDB.pm
parent1ebbc2dcd0006bc7029a2be1cc58460158f27abc (diff)
get rid of Cwd for the installer
git-svn-id: svn://tug.org/texlive/trunk@5688 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index 752746f3834..83943141b64 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -42,7 +42,6 @@ C<TeXLive::TLPDB> -- A database of TeX Live Packages
use TeXLive::TLConfig qw($CategoriesRegexp $DefaultCategory);
use TeXLive::TLUtils;
use TeXLive::TLPOBJ;
-use Cwd;
my $_listdir;
@@ -205,6 +204,7 @@ adds new dependencies they are not necessarily fulfilled.
sub add_tlpcontainer {
my ($self, $package, $ziplocation, $archrefs, $dest) = @_;
my @archs;
+ require Cwd;
if (defined($archrefs)) {
@archs = @$archrefs;
}
@@ -224,6 +224,7 @@ sub _add_tlpcontainer {
my ($self, $package, $ziplocation, $arch, $dest) = @_;
my $unpackprog;
my $args;
+ require Cwd;
# WARNING: If you change the location of the texlive.tlpdb this
# has to be changed, too!!
if (not(defined($dest))) {