diff options
| author | Reinhard Kotucha <reinhard.kotucha@web.de> | 2008-04-09 20:11:42 +0000 |
|---|---|---|
| committer | Reinhard Kotucha <reinhard.kotucha@web.de> | 2008-04-09 20:11:42 +0000 |
| commit | 0b7b8d30dc6f1063081a243ed2deed259ae8f36f (patch) | |
| tree | 0d1662efc7c807554166f6ba39ff744c8649e494 /Master/texmf/scripts | |
| parent | fca907b74a1b4bba0630f1f91bf1cda6f9c1aa83 (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')
| -rw-r--r-- | Master/texmf/scripts/tetex/texdoctk.pl | 9 |
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; } } |