allow direct execution, avoid hardwiring Norbert's path

git-svn-id: svn://tug.org/texlive/trunk@4455 c570f23f-e606-0410-a88d-b1316a301751

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;