diff options
author | Norbert Preining <preining@logic.at> | 2008-01-07 13:42:54 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-01-07 13:42:54 +0000 |
commit | 4b0183ccf1cc668089020a972ceb273f9accf9f8 (patch) | |
tree | 94c67cb7969ddb5a7eedbba04e82df525a1923fd /Master/tlpkg | |
parent | ac50cd9683173aafb97f8271dcf69c8c2d47169e (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-x | Master/tlpkg/bin/generate-fmtutil | 3 | ||||
-rwxr-xr-x | Master/tlpkg/bin/generate-language | 3 |
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); |