From 0b7b8d30dc6f1063081a243ed2deed259ae8f36f Mon Sep 17 00:00:00 2001 From: Reinhard Kotucha Date: Wed, 9 Apr 2008 20:11:42 +0000 Subject: texdoctk.pl: works on Unix/win32 now, bug fixed. git-svn-id: svn://tug.org/texlive/trunk@7368 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/tetex/texdoctk.pl | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'Master/texmf/scripts/tetex') 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; } } -- cgit v1.2.3