diff options
| -rwxr-xr-x | Master/tlpkg/bin/tlsrc2tldb.pl | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/Master/tlpkg/bin/tlsrc2tldb.pl b/Master/tlpkg/bin/tlsrc2tldb.pl index 197c1bfbb09..10e8919ae95 100755 --- a/Master/tlpkg/bin/tlsrc2tldb.pl +++ b/Master/tlpkg/bin/tlsrc2tldb.pl @@ -1,15 +1,14 @@ -#!/usr/bin/env perl -w -# +#!/usr/bin/env perl # tlsrc2tldb.pl # convert a set of tlsrc files (given as arguments) into tldb +# # Copyright 2007 Norbert Preining -# # This file is licensed under the GNU General Public Licence version 2 # or any later version -# BEGIN { - ($mydir = $0) =~ s,/[^/]*$,,; + $^W = 1; + chomp ($mydir = `dirname $0`); unshift (@INC, "$mydir/.."); } @@ -24,7 +23,7 @@ use Pod::Usage; use File::Path; -my $opt_master = "/src/TeX/texlive-svn/Master"; +chomp (my $opt_master = `cd $::mydir/../.. && pwd`); our $opt_debug = 0; my $man = 0; my $help = 0; |