diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-02-11 15:37:39 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-02-11 15:37:39 +0000 |
commit | a0154d209461e576fd2e5429bbb67b73684ad040 (patch) | |
tree | ab96c8b37709ec06eecc71a14ee6452f19362a6f /Master/tlpkg | |
parent | bd359b1896c7c36091ee6a8776bf2798cf8c3dbf (diff) |
TLWinGoo: added more quotes to
HKCR/script.texlua/shell/open/command.
Commented out hard assignments to basename in texlua scripts
Note. wingoo-demo probably dysfunctional ATM
git-svn-id: svn://tug.org/texlive/trunk@6607 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rw-r--r-- | Master/tlpkg/TeXLive/TLWinGoo.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/doc/wingoo-demo.pl | 24 |
2 files changed, 13 insertions, 13 deletions
diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm index 06a806a502c..4e1da8d25d5 100644 --- a/Master/tlpkg/TeXLive/TLWinGoo.pm +++ b/Master/tlpkg/TeXLive/TLWinGoo.pm @@ -422,7 +422,7 @@ sub register_script_type { $classes_key->ArrayValues(0); $classes_key->CreateKey($extension)->SetValue("","script".$extension); $classes_key->CreateKey("script".$extension."/Shell/Open/Command/")-> - SetValue("", $command.' "%1" %*'); + SetValue("", '"'.$command.'" "%1" %*'); } =pod diff --git a/Master/tlpkg/doc/wingoo-demo.pl b/Master/tlpkg/doc/wingoo-demo.pl index c73e3626d64..8e7359e0041 100644 --- a/Master/tlpkg/doc/wingoo-demo.pl +++ b/Master/tlpkg/doc/wingoo-demo.pl @@ -103,19 +103,19 @@ print "tex.exe found in " . # the problem case: no admin, but TeX on system path -if (!admin()) { - my $fn = expand_string("%windir%")."/TEX.EXE"; - $fn =~ s/\\/\//g; - create_file($fn); # a tex.exe on the system path! - add_texbindir_to_path(expand_string($wr_dir2)); - my @wge = wg_error(); - if (@wge) { - print $wge[1]."\n"; - } - print_search_paths(); - print "tex.exe found in " . TeXLive::TLWinGoo::win_which_dir("tex.exe") . "\n"; - unlink $fn; +my $admin_save = $TeXLive::TLWinGoo::is_admin; +$TeXLive::TLWinGoo::is_admin = 0; +my $fn = expand_string("%windir%")."/TEX.EXE"; +$fn =~ s/\\/\//g; +create_file($fn); # a tex.exe on the system path! +add_texbindir_to_path(expand_string($wr_dir2)); +my @wge = wg_error(); +if (@wge) { + print $wge[1]."\n"; } +print_search_paths(); +print "tex.exe found in " . TeXLive::TLWinGoo::win_which_dir("tex.exe") . "\n"; +unlink $fn; # adding a filetype |