summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2007-06-17 22:20:55 +0000
committerKarl Berry <karl@freefriends.org>2007-06-17 22:20:55 +0000
commitdeb162298b2e5b84b81cdb85508a34d09398001b (patch)
tree258a7cca22770f10b69908fbca01e9b4ade47c78
parentdb1441f64fdaee094173bdf619c443fcad94b1a7 (diff)
allow direct execution, avoid hardwiring Norbert's path
git-svn-id: svn://tug.org/texlive/trunk@4455 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/tlpkg/bin/tlsrc2tldb.pl11
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;