diff options
author | Norbert Preining <preining@logic.at> | 2008-01-07 13:41:27 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-01-07 13:41:27 +0000 |
commit | ac50cd9683173aafb97f8271dcf69c8c2d47169e (patch) | |
tree | 35c527ed6fb767f48f35eafaf0a1037838a8987b /Master/tlpkg/bin/generate-updmap | |
parent | 7f96ea16037d934cc590590f2d11c81bf5dadceb (diff) |
use abs_path of Cwd instead of cd ../.. ; pwd, better for windows
git-svn-id: svn://tug.org/texlive/trunk@6118 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/generate-updmap')
-rwxr-xr-x | Master/tlpkg/bin/generate-updmap | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Master/tlpkg/bin/generate-updmap b/Master/tlpkg/bin/generate-updmap index a2cf4419b32..1e207e258d0 100755 --- a/Master/tlpkg/bin/generate-updmap +++ b/Master/tlpkg/bin/generate-updmap @@ -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"); if (! $dest) { |