summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2008-02-11 15:37:39 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2008-02-11 15:37:39 +0000
commita0154d209461e576fd2e5429bbb67b73684ad040 (patch)
treeab96c8b37709ec06eecc71a14ee6452f19362a6f /Master/tlpkg
parentbd359b1896c7c36091ee6a8776bf2798cf8c3dbf (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.pm2
-rw-r--r--Master/tlpkg/doc/wingoo-demo.pl24
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