From deb162298b2e5b84b81cdb85508a34d09398001b Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 17 Jun 2007 22:20:55 +0000 Subject: allow direct execution, avoid hardwiring Norbert's path git-svn-id: svn://tug.org/texlive/trunk@4455 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/tlsrc2tldb.pl | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'Master/tlpkg') 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; -- cgit v1.2.3