summaryrefslogtreecommitdiff
path: root/Master/texmf/scripts/tetex/texdoctk.pl
diff options
context:
space:
mode:
authorReinhard Kotucha <reinhard.kotucha@web.de>2008-04-09 20:11:42 +0000
committerReinhard Kotucha <reinhard.kotucha@web.de>2008-04-09 20:11:42 +0000
commit0b7b8d30dc6f1063081a243ed2deed259ae8f36f (patch)
tree0d1662efc7c807554166f6ba39ff744c8649e494 /Master/texmf/scripts/tetex/texdoctk.pl
parentfca907b74a1b4bba0630f1f91bf1cda6f9c1aa83 (diff)
texdoctk.pl: works on Unix/win32 now, bug fixed.
git-svn-id: svn://tug.org/texlive/trunk@7368 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf/scripts/tetex/texdoctk.pl')
-rw-r--r--Master/texmf/scripts/tetex/texdoctk.pl9
1 files changed, 6 insertions, 3 deletions
diff --git a/Master/texmf/scripts/tetex/texdoctk.pl b/Master/texmf/scripts/tetex/texdoctk.pl
index 32ca13dd577..147553a1a1c 100644
--- a/Master/texmf/scripts/tetex/texdoctk.pl
+++ b/Master/texmf/scripts/tetex/texdoctk.pl
@@ -1,3 +1,4 @@
+#! /usr/bin/env perl
###############################################################################
# texdoctk v.0.6.0 (Nov 5, 2004) - GUI for TeX documentation access
# Copyright (C) 2000-2004 Thomas Ruedas
@@ -14,8 +15,10 @@ use File::Basename;
my $IsWin32 = ($^O =~ /MSWin32/i);
if ($IsWin32) {
-# use Win32::Registry;
- use Win32::API;
+ require Win32::API;
+# Win32::API->import( qw(
+# &something
+# ));
}
# initialization of some internal variables
@@ -689,7 +692,7 @@ sub finddoc {
$slcdoc="";
return $slcdoc;
}
- last CMPREND; does not work, what we need is:
+# last CMPREND; does not work, what we need is:
return $slcdoc;
}
}