summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-07 13:42:54 +0000
committerNorbert Preining <preining@logic.at>2008-01-07 13:42:54 +0000
commit4b0183ccf1cc668089020a972ceb273f9accf9f8 (patch)
tree94c67cb7969ddb5a7eedbba04e82df525a1923fd /Master/tlpkg
parentac50cd9683173aafb97f8271dcf69c8c2d47169e (diff)
same for the others
git-svn-id: svn://tug.org/texlive/trunk@6119 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rwxr-xr-xMaster/tlpkg/bin/generate-fmtutil3
-rwxr-xr-xMaster/tlpkg/bin/generate-language3
2 files changed, 4 insertions, 2 deletions
diff --git a/Master/tlpkg/bin/generate-fmtutil b/Master/tlpkg/bin/generate-fmtutil
index 87ed9d51a99..1cb92eaa0d6 100755
--- a/Master/tlpkg/bin/generate-fmtutil
+++ b/Master/tlpkg/bin/generate-fmtutil
@@ -21,6 +21,7 @@ use TeXLive::TLPDB;
use Getopt::Long;
use Pod::Usage;
use File::Path;
+use Cwd 'abs_path';
our $mydir;
our $opt_debug = 0;
@@ -38,7 +39,7 @@ exit (&main ());
sub main
{
# get the db.
- chomp (my $Master = `cd $mydir/../.. && pwd`); # xx TLPDB should default
+ my $Master = abs_path("$mydir/../..");
my $tlpdb = TeXLive::TLPDB->new ("root" => "$Master");
my $sysvar = `kpsewhich -expand-var '\$TEXMFSYSVAR'`; chomp($sysvar);
diff --git a/Master/tlpkg/bin/generate-language b/Master/tlpkg/bin/generate-language
index ae3d57d0d68..f9421fbfc50 100755
--- a/Master/tlpkg/bin/generate-language
+++ b/Master/tlpkg/bin/generate-language
@@ -21,6 +21,7 @@ use TeXLive::TLPDB;
use Getopt::Long;
use Pod::Usage;
use File::Path;
+use Cwd 'abs_path';
our $mydir;
our $opt_debug = 0;
@@ -38,7 +39,7 @@ exit (&main ());
sub main
{
# get the db.
- chomp (my $Master = `cd $mydir/../.. && pwd`); # xx TLPDB should default
+ my $Master = abs_path("$mydir/../..");
my $tlpdb = TeXLive::TLPDB->new ("root" => "$Master");
my $sysvar = `kpsewhich -expand-var '\$TEXMFSYSVAR'`; chomp($sysvar);